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Avant-propos 











De nombreuses personnes possèdent un ordinateur domestique, mais seule une minorité 
peut se vanter d’avoir une réelle bibliothèque de programmes. Peut-être faites-vous 
partie de ceux qui recherchent de nouveaux programmes pour leur ordinateur ? Ce livre 
est fait pour vous. Vous y trouverez douze programmes accompagnés de leur mode 
d'emploi. 

Ces logiciels ont été testés et ils utilisent un langage BASIC élémentaire. En 
conséquence, vous devez pouvoir les taper sur n'importe quelle machine sans rencontrer 
de difficulté majeure. Ils ont d’ailleurs fonctionné sur un ordinateur de poche. Dans ce 
genre de machines, on peut utiliser 26 variables au maximum, chacune portant un nom 
de 7 caractères ; il reste alors 1 424 pas de programme. Le nombre de variables peut 
augmenter, mais, dans ce cas, la place réservée au programme diminue. Nos 
programmes tiennent compte de ces impératifs, et vous serez étonné de tout ce que l'on 
peut faire avec de si petites machines. Les listings de ce livre sont ceux correspondant à 
la version THOMSON. 

Bien évidemment, ces douze programmes fonctionnent également sur un matériel plus 
sophistiqué. Vous pourrez alors améliorer et compléter chacun de nos logiciels en vous 
inspirant des remarques et des conseils que nous vous donnons dans ce livre. Nous 
vous expliquons également chaque programme en détail. Ce livre constitue donc votre 
outil de travail. 

Si vous n'êtes pas un expert en BASIC, ce n'est pas grave ! Certes, quelques notions 
de ce langage vous faciliteraient la tâche. De toute façon, nous avons supprimé toute 
complication et autre ‘’tour de magie’’ qui rendraient peut-être les programmes plus 
élégants, mais en compliqueraient inutilement la compréhension. Lorsque vous serez 
bien familiarisé avec nos programmes, vous pourrez les modifier vous-même. Par 
exemple : notre programme simulant les flux de la circulation routière comporte 
seulement deux carrefours ; vous pourrez le modifier pour concevoir le réseau entier de 
la ville de votre choix. En pratiquant de la sorte, vous approfondirez grandement votre 
connaissance du BASIC. 

Maintenant, nous pouvons commencer. Amusez-vous en utilisant nos programmes sur 
votre ordinateur personnel ! 


























Le BASIC en douze étapes 


Le but de ce livre est de vous fournir 
douze programmes déjà réalisés, et 
qu'il vous suffit de taper. Toutefois, 
il n'est pas évident qu'un programme 
fonctionne du premier coup, car une 
faute de frappe suffit à provoquer 
une erreur de programmation. Nous 
vous garantissons que ces logiciels 
fonctionnent réellement sur les ordi- 
nateurs THOMSON MO5 et T07/70. 
Pour que vous trouviez le plus de 
plaisir possible à la lecture de ce 
livre, nous avons mélangé les 
genres. Enfin, notre objectif est de 
vous permettre de maîtriser ces pro- 
grammes. Le choix du BASIC 





Structure du livre 
Ce livre est votre manuel de travail. Il vous indique 
comment résoudre les problèmes liés à la pro- 

‘ grammation et vous propose des 
solutions astucieuses. Vous avez 
besoin d'un ordinateur connais- 
sant le langage BASIC. Si vous 
êtes surpris par certains aspects 
simplistes de nos programmes, 
n'oubliez pas que nous avons 
agi de façon à rendre ces 
logiciels facilement 












Procédure 


variables). 







Quand vous souhaitez utiliser un programme, tapez-le au cla- 
vier de votre ordinateur. N'oubliez pas d'effacer la mémoire 
de votre ordinateur en tapant tout d'abord les commandes 
NEW (effacement de programme) et CLEAR (effacement de 


Il est possible que vous ayez fait une faute de frappe ou 
introduit une erreur malencontreuse. Afin de les dépister, 
vous devez tester le programme en utilisant pour cela les don- 
nées particulières que nous vous indiquerons. 

Conservez dans votre bibliothèque une cassette ou une dis- 
quette contenant le programme définitif, testé. Cela vous évi- 
tera de le retaper chaque fois que vous en aurez besoin. 


comme langage de programmation 
n'est pas un hasard ; ce langage est 
compris par la plupart des ordina- 
teurs domestiques ainsi que par de 
nombreuses calculatrices pro- 
grammables. 


compatibles avec n'importe quel ordinateur. Nous 
avons donc particulièrement veillé à rester clairs et 
compréhensibles. 

Vous trouverez un logiciel par double page. Tout 
d’abord, un texte d'introduction définit le but du 
programme. L'idée maîtresse est ensuite dévelop- 
pée. Puis les grandes phases du programme sont 
analysées et commentées. Des données-test vous 
permettront de vérifier la validité des résultats de 
votre programme, et donc d'être sûr de son bon 
fonctionnement. Enfin, le listing apparaît tel que 
nous l'avons édité sur l'imprimante. 


Aide à la mise au point 

Presque tous les ordinateurs, même les 
calculatrices programmables, possèdent 
quelques commandes facilitant la recher- 
che et ia localisation des erreurs. 

Certains BASIC comprennent l'instruction 
DEBUG, ce qui signifie ‘’ôter les erreurs”. 
Le programme s'exécute ligne par ligne en 
s'arrêtant à la fin de chaque ligne. Vous 
pouvez ainsi examiner les valeurs de cha- 
que variable et suivre très précisément le 
cheminement du programme. Si votre 
ordinateur ne comprend pas cette instruc- 
tion, vous pouvez insérer l'instruction 
STOP, précédée d'un numéro de ligne, 
autant de fois que vous le désirez dans le 
corps du programme. L'exécution s'arré- 
tera ; vous pourrez vérifier le contenu des 
variables ; puis vous relancerez l'exécution 
en tapant (sans numéro de ligne) CONT. 
Beaucoup de BASIC reconnaissent la com- 
mande TRON (ou TRACE). Tapez TRON 
puis lancez l'exécution du programme. 

| Tous les numéros des lignes exécutées 
apparaîtront à l'écran. 


Les langages BASIC 
Le BASIC est un langage de programmation 
relativement ancien. Il a été concu en 1963 
pour être utilisé par des débutants ; ses ins- 
tructions étaient donc simples et peu nombreuses. 
Avec l'avènement des calculatrices programmables et 
des microprocesseurs, le BASIC s'est vite répandu, car il conve- 
nait parfaitement à ces petites machines. En effet, les mots 
BASIC sont plus facilement compris par le microprocesseur que 
d’autres langages de programmation. 
Avec l'essor de l'informatique et des ordinateurs, le BASIC s'est 
développé et continue à se développer. Chaque fabricant a 
ajouté ses propres instructions, si bien qu'aujourd'hui, s'il sub- 
siste un ‘’noyau”’ commun à tous les BASIC, chaque machine 
présente des variantes. Il arrive fréquemment qu'un programme 
fonctionnant sur un ordinateur ne puisse être exécuté sur un 
autre. 
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Devons-nous tenir compte des différences entre les BASIC ? 

Le fait de rencontrer un langage BASIC particulier peut expliquer qu'un pro- 
gramme correctement tapé ne fonctionne pas sur votre propre ordinateur. 
Reportez-vous au manuel accompagnant votre machine ; vérifiez que l'instruc- 
tion refusée par votre ordinateur existe bien : peut-être est-elle simplement mal 
orthographiée ou manque-t-il une parenthèse ? Si l'instruction incriminée n'existe 
pas, vous trouverez certainement un équivalent (par exemple, l'instruction 
CLEAR s'écrit CLR sur certaines machines ; le résultat est le même). En tapant 
nos programmes, les problèmes que 
vous pourrez rencontrer seront mini- 
mes, car nous avons veillé à éliminer 
les mots clés ésotériques. 


Le manuel de l'utilisateur 

Tout ordinateur et tout langage de programma- 
tion sont accompagnés d'un manuel destiné à 
l'utilisateur. Certes, quelques personnes sont 
prêtes à découvrir d'elles-mêmes toutes les 
erreurs possibles. Mais elles gaspillent 
ainsi beaucoup de leur temps et il est 
préférable d'étudier le manuel en profon- 
deur. La qualité du mode d'emploi est 
importante ; d'elle dépend le résultat que | \] Le jeu du NIM 20-21 
vous atteindrez avec votre machine. Un jeu réel avec l'ordinateur. 


VII Simulation 22-23 
Comment traiter la circulation auto- 
Table d iè mobile par ordinateur. 

ApIe Ces MAUSISS ” VIII Peut-on passer des nombres 
se liè 1011 au crible ? 24-25 
ire ie sb 7 On découvre les nombres premiers. 
Le développement de deux races IX Le carré magique 26-27 
SNNOMISS Un ordinateur peut le calculer à votre 

Le calendrier 12-13 place 

Le squelette d'un calendrier annuel.| > 1e jeu taie 28-29 
| Devinez des chiffres tirés L'ordinateur prévoit l'évolution d'une 

au hasard | 14-15 ce 

L'ordinateur tire au hasard un XI Cinq fois l'infini 30-31 


nombre que vous devez trouver. Suites et séries, trouver Pi 
IV Répertoire téléphonique 16-17! x} L'ordinateur écrivain : est-ce 


Comment enregistrer et retrouver possible ? 32-33 
des numéros de téléphone dans un Il construit des textes ressemblant à des 
ordinateur. poèmes. 

V L'ordinateur devine des 
nombres 18-19 


Un programme qui gagne à tous les 
coups. 


Qu'est-ce que le BASIC ? 


Le BASIC est un langage de pro: 
grammation de haut niveau. Il 
s'adresse aussi bien à l'utilisateur 
averti qu'au programmeur débutant. 
D'où son nom : BASIC, qui veut dire 
‘’fondamental"”’. Ce langage est cons- 
titué de mots simples, mais il ne sera 
pas toujours facile à apprendre, sur- 
tout lorsque ce que l’on voudra 
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Ces deux pages sont là uniquement 
pour vous rappeler quelques notions 
essentielles de ce langage : c'est ‘le 
BASIC en un clin d'œil’. Nous 
détaillons également les mots clés 
qui interviennent dans nos 
programmes. 





collection. 


Programmes, commandes et 
instructions 

Un programme BASIC est une 
suite d'ordres successifs. Chaque 
ordre est écrit sur une ligne com- 
mençant par un numéro de ligne. 
Les instructions sont exécutées 
dans l'ordre croissant des numéros 
de ligne. Pour permettre d'insérer 
ultérieurement des instructions sans 
réécrire tout le programme, on 
attribue généralement des numéros 
de lignes allant de 10 en 10, l'ordi- 
nateur reclassant automatiquement 
les lignes d'instruction par ordre 
croissant. Un ordre se décompose 
en un ou plusieurs mots clés. Ce 
sont des instructions BASIC desti- 
nées à l'ordinateur. Ces mots clés 
sont en angjlais ; il faut connaître 
leur signification et leur mode 
d'emploi. 

Enfin, un ordre est souvent accom- 
pagné de ‘’données”’. Ces dernières 
sont appelées ‘variables’ quand 
leur valeur peut changer durant le 
programme. Elles sont appelées 
“constantes” quand leur valeur est 
fixe. 


représenter en BASIC ne sera pas 

formulé d'une manière simple. 

Ce livre n'a pas pour objet de vous 
initier au BASIC. Si ce sujet vous 

intéresse, vous pouvez lire d’autres 
ouvrages, notamment ‘’Voyage en 
BASIC" publié dans la même 























Les données représentent des nombres ou 

des caractères 

Les données sont constituées de dessins, d'informa- 

tions ou de valeurs. Elles peuvent être ‘’numériques"” 
(elles représentent alors des chiffres ou des nombres) 
ou ‘’alphanumériques"’ (elles contiennent des lettres, 


des chiffres ou des signes de ponctuation, le tout for- 
mant ce qu'on appelle une chaîne de caractères que 
l'on place entre guillemets). Les valeurs numériques 
sont écrites normalement, sans guillemets ; toutefois, 
la virgule est remplacée par un point. 


Les noms de données 

Les données (numériques ou alphanumériques) 
dont les valeurs peuvent changer au cours du 
programme sont appelées des ‘variables’. Cha- 
que variable numérique reçoit un nom composé 
d'une ou plusieurs lettres auxquelles peuvent 
être accolés des nombres (exemple : K15, F ou 
B3). Les noms des variables alphanumériques 
(ou chaînes de caractères) sont composés de la 
même manière, mais se terminent toujours par 


le signe $ (exemple : A$, G18$ ou B3$). Dans 
nos programmes, ces règles sont scrupuleuse- 
ment respectées. 


| 
| 


Boucles et instructions 
FOR, TO, NEXT 
Quand une instruction ou une suite 
d'instructions doit s'exécuter plu- 
sieurs fois de suite dans le corps 
d'un programme, on la place dans 
une ‘’boucle’”’. Une boucle qui doit 
s'exécuter dix fois commence ainsi : 
250 FOR N = 1 TO 10 
et se termine par : 
350 NEXT N 
(250 et 350 sont des numéros de 
lignes arbitraires choisis à titre 
d'exemple). Les lignes placées entre 
250 et 350 s'exécuteront dix fois ; N 
sera incrémenté de 1 à chaque fois. 


Formules, expressions et | 
instruction LET | 
Une “expression” est une ligne composée de | 
noms de variables, de constantes, de paren- [M 
thèses et des signes arithmétiques : + laddi- | | 
tion}, — {soustraction}, * Imultiplication] et / |} 
(division). Généralement, tous ces noms et 

signes se suivent sans espace. Toutes les |: 
variables utilisées dans une expression doi- | 
vent auparavant avoir reçu une valeur dans le 
cours du programme [sinon, la valeur 0 est 

prise par défaut, mais ce n'est pas une l 
bonne manière de programmer). Ainsi, si | 
nous voulons attribuer la valeur 3.14 à la | | 
variable M, nous écrivons (par exemple pour 
la ligne 150 : 150 M = -3.14 | 
Le signe = utilisé dans cette ligne n'indique 
pas que M est égal à —3.14 mais qu'on —— 
ATTRIBUE (ou encore, qu'on assigne) la 
valeur -3.14 à la variable M. On peut tout à 
fait utiliser une expression à droite du signe 


| 

=, L'ensemble de la ligne constitue une for- | 

mule. Pour éviter de confondre égalité et 
|” 






L'instruction de saut 
inconditionnel GOTO 

Supposons que l'on écrive : 750 GOTO 100 
Lorsque le programme exécute la ligne 750, 
il comprend que la prochaine ligne à exécu- 
ter sera la ligne 100. Cela s'appelle un saut 
inconditionnel. 















attribution, on utilise l'instruction LET en 

début de ligne. Toutefois, sur de nombreux 
ordinateurs modernes, cette instruction est 
facultative. 








Le sous-programme : 
instructions GOSUB et RETURN 
Un sous-programme est une série d'instructions 
dont on a besoin plusieurs fois dans le programme, 
à des endroits différents. Son utilisation évite 
d'écrire plusieurs fois la même séquence. Suppo- 
sons que dans notre programme principal nous dési- 
rions, à la ligne 310, appeler un sous-programme 
commençant à la ligne 900 ; nous écrirons : 

310 GOSUB 900 
Le programme saute alors à la ligne 900 et 
exécute, à partir de cet endroit, toutes les 
instructions ligne par ligne jusqu'à l'instruc- 
tion RETURN. "RETURN" commande à 
l'ordinateur de retourner d'où il vient, c'est-à- 
dire à la première ligne placée après la ligne 
310. 
Les lignes placées entre 900 et l'instruction 
RETURN constituent un sous-programme. 





























Commentez votre pro- 
gramme avec ‘’REM" 
Ilest souvent utile de pouvoir insérer 
dans un programme des commentai- 
res, des remarques, des explications. Il 
suffit pour cela de placer le mot REM 
(comme REMarque) après le numéro 
de ligne, puis votre commentaire. | 
Tous les caractères du clavier sont uti- |, 
lisables. En voici un exemple : 

390 REM C'EST LA SUITE DE LA 
PARTIE B DU PROGRAMME 


STOP et END 
END signale la fin du programme principal 
pour éviter que ce programme, en se termi- 
nant, passe sur les sous-programmes placés 
après. 

STOP est utilisé comme arrêt temporaire lors 
de la mise au point. L'exécution reprend si 
l'on tape CONT au clavier, ce qui n'est pas 
possible avec l'instruction END. 
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Tests et décisions : 
l'instruction IF ..… THEN 

Il arrive fréquemment que l'on ait 
à prendre une décision en fonc- 
tion du contenu d'une variable. 
Par exemple, si l’on veut retirer 
une somme d'un compte ban- 
caire, cela n'est possible que s'il 
reste suffisamment d'argent sur 
le compte. La ligne : 

520 IF (SOLDE—RETRAIT) = 0 
THEN GOTO 730 

permet à l'ordinateur de vérifier 
SI (IF) le solde après retrait est 
négatif ou nul. Si tel est le cas, 
l'exécution passe à la ligne 730 ; 
sinon, elle continue normalement 
à la ligne 521. 


Saisie de données : 
l'instruction INPUT 
L'instruction INPUT demande à 
l'ordinateur de scruter le clavier 
et de lire tous les caractères pou- 
vant être tapés par l'utilisateur 
jusqu'à ce qu'il appuie sur la 
touche RETURN. 

470 INPUT "’S.V.P. TAPEZ LA 
SOMM”';B 

Arrivé à la ligne 470, le pro- 
gramme attend que l'utilisateur 
ait tapé une valeur numérique 
suivie de RETURN. cette valeur 
est placée dans la variable B et 
le programme continue. 


Affichage de messages et de 
résultats : l'instruction PRINT 
Ecrivons la ligne suivante : 

770 PRINT "SOMME ="';B 
L'ordinateur affiche le message 
placé entre guillemets puis, sur la 
même ligne, le contenu de la 
variable B. 


Les différents langages BASIC 
Aujourd'hui, il existe un très 
grand nombre de langages 
BASIC. Cela constitue un véri- 
table défi : quand le programme, 
une fois tapé, ne fonctionne pas, 
cela peut provenir d'une faute de 
frappe, d’une faute de program- 
mation, d'une erreur du pro- 
gramme, d'une instruction mal 
comprise ou d'une particularité 
du BASIC de l'ordinateur utilisé. 
Il existe deux arbitres : le manuel 
de l'utilisateur (ou mode 
d'emploi) et l'ordinateur. Surtout, 
ne désespérez pas, mais 
transformez-vous en détective. 
Trouvez l'erreur ! Faites très 
attention aux détails. 
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Renards et lièvres 





Données numériques 

Supposons au départ que ’L'’ lièvres 
et ’R' renards vivent sur une île. A 
la fin d'une année, vivent 40 % de 
lièvres en plus. Mais parmi les ’L’ 
lièvres, L*R/250 lièvres sont dévorés 


(250 est une 


gourmandise’’). Si l'île est habitée 
de ‘L’ lièvres et de ‘’R' renards au 
début de l’année, elle sera peuplée 
l'année suivante par ’X’ lièvres : 

.. X = L + L*40/100 — L*R/250 
Etudions maintenant le cas des 
renards. Leur taux de croissance est 
de (L/5—-30)%. A la fin d'une 
année, le nombre total "Y' de 


renards est : 


Y = R + R*(L/5—30)/100 
A partir de ces deux formules, on 
peut en déduire année par année le 
nombre de lièvres et de renards. 


Trop de renards, cela entraîne la dis- 
parition des lièvres. Dans les vieux 
livres d'école, on trouve des exerci- 
ces de calcul comme celui-ci : con- 
naissant la vitesse du lièvre et celle 
du renard, combien de temps mettra 
le renard pour rattraper le lièvre ? 
Dans les livres modernes, d'autres 
problèmes sont posés : sur une île 
vivent des lièvres et des renards. La 
nourriture est surabondante pour les 
lièvres, ce qui leur permet de se mul- 
tiplier chaque année suivant un pour- 
centage connu. Mais sur cette île 
vivent également des renards. Bien 
sûr, ils dévorent les lièvres. Lorsque 
les lièvres sont nombreux, les 
renards se multiplient. Plus il y a de 
renards, moins il y a de lièvres 
puisqu'ils sont mangés. Mais quand 
il Y a moins de lièvres, le nombre de 
renards diminue : ils meurent de 
faim. 


sorte de ‘’facteur de 


signification. 


Les grandes lignes du 
programme 

Le programme a besoin de connaître les 
données suivantes : 

L': nombre de lièvres 

R : nombre de renards 

À : nombre d'années que dure l'étude 

Ces trois valeurs seront introduites par l'ins- 
truction ‘INPUT". 

Une boucle ‘FOR … NEXT' est parcourue 
"A fois. Les nombres de lièvres "X" et de 
renards "Y' seront calculés chaque fois en 
partant des données de l'année précédente : 
'L' lièvres et R' renards. On utilise pour cela 
les deux formules citées précédemment. 
Mais il convient de ne garder que la partie 
entière des résultats (fonction ‘INT'}, car 
découper des animaux n'a ici aucune 


Le programme imprime ensuite les résultats. 
ILest possible que ‘X' ou ‘Y' devienne néga- 
tif avant que la boucle ‘FOR … NEXT' soit 
terminée. Il convient donc de vérifier à cha- 
que boucle que ’X' et "Y' sont positifs. 

A la fin de chaque boucle, les nouvelles 
valeurs ’X" et "Y’ qui viennent d'être calcu- 
lées deviennent les valeurs de départ pour 
l'année suivante. ‘L' reçoit donc la valeur de 
"X' et 'R' celle de ‘Y'. 


Ce que nous venons de décrire avec 
des mots doit, dans un premier 
temps, être transcrit en chiffres. Puis 
nous devons établir les formules cor- 
respondant aux règles que nous 
venons d'énoncer. Ainsi naît un 
modèle informatique de simulation 
du développement de la population 
des lièvres et des renards. On pourra 
ensuite, grâce à l'ordinateur, prévoir 
ce qui se passerait si l’on modifiait 
les données du modèle. 














































Commentaires 
Les lignes 20 à 50 servent à introduire dans le 
programme, par le clavier, les valeurs 
initiales : 
Nombre de lièvres ‘’L', nombre de renards ’R', 
et nombre d'années A. 
La boucle de calcul pour une année se situe 
entre 100 et 300. Cette boucle s'exécute A” 
fois. Le modèle mathématique est programmé 
aux lignes 110 et 120. 
A la ligne 150, on vérifie qu'il reste des 
lièvres. Si oui, le programme continue à la 
ligne 160 ; si non, on termine la boucle 
"FOR … NEXT' en forçant le compteur ‘N’ à 
prendre immédiatement la valeur finale *A" 
(ligne 155), et l'exécution passe à la ligne 
200 : transferts entre variables pour préparer 
l'impression, impression, puis le programme 
s'arrête car la boucle est terminée et il ne 
reste plus d'instructions au-delà de la ligne 
300. 
Les lignes 160 et 166 jouent un rôle similaire 
pour les renards. 
Notez que l'instruction END, n'étant pas ici 
indispensable, n'a pas été utilisée. En toute 
rigueur, il aurait fallu écrire : 

310 END 


























Test du programme 

Lorsque vous avez tapé votre pro- 
gramme, vérifiez d'abord qu'il ne 

comporte pas de faute de frappe. 





attentivement et corrigez-le le cas 
échéant. 

Pour vérifier que le programme 
calcule correctement, proposez-lui 


déjà le résultat. Si vous tapez les 
valeurs 100 pour les lièvres et 
80 pour les renards sur 5 années, 
vous devrez obtenir les résultats 
suivants : 
années 
1re : 108 lièvres - 72 renards 
2e : 120 lièvres - 65 renards 
3 : 136 lièvres - 61 renards 
ny 4 : 157 lièvres - 59 renards 
: 182 lièvres - 56 renards 



























breux domaines scientifiques. 








L'instruction ‘LIST’ vous permettra 
de le faire défiler à l'écran. Lisez-le 


des données dont vous connaissez 


Le programme 


10 REM RENARDS ET 


28 INPUT "LIEVRES 
25 PRINT "LIEVRES 
30 INPUT "RENARDS 
35 PRINT "RENARDS 
4@ INPUT 
45 PRINT 
950 PRINT 


10@ FOR N=i TO A 


LIEVRES 
AA 

! eo L 
"a R 
PET R 


"NOMBRE D'ANNEES ";A 
"NOMBRE D'ANNEES : ";A 


118 X=INT(L+L#40/100-L+R/250) 
120 Y=INT(R+R*#(L/5-30)/100) 
150 IF X>@ THEN GOTO 160 


155 N=A 
156 GOTO 200 


160 IF Y>@ THEN GOTO 200 


165 N=A 
166 GOTO 200 
200 L=X 
210 R=Y 


250 PRINT Nj" "33" M3R 


308 NEXT N 


Simulations 
Si vous voulez jouer avec ce 
modèle, commencez par étu- 
dier le cas standard. Calculez 
sur une période plus longue 
(A = 20) avec 100 lièvres et 
100 renards au départ. Que 
se passe-t-il ? Les lièvres se 
multiplient tandis que le 


nombre de renards diminue modérément. Que se passe-t-il si les lièvres 
se multiplient seulement avec un taux de croissance de 30 % tandis 
que les renards deviennent gloutons ? Pour cela, vous devez changer, à 
la ligne 110, la valeur 40 en 30 et la valeur 250 en 150. Puis relancez le 
programme avec à nouveau ‘’L’ = 100 et ‘R' = 100. 

Vous constaterez qu'il est difficile de trouver les valeurs pour lesquelles 
les populations des lièvres et des renards se stabilisent. Bien sûr, il est 
également intéressant de définir les conditions de disparition des lièvres 
ou des renards. Sans l'ordinateur, la réponse à ces questions serait très 
longue à donner, voire même impossible. Voici pourquoi la simulation 
sur ordinateur est devenue une technique importante dans de nom- 







Extensions et 
développements 

Il est naturellement possible 
d'améliorer grandement 
notre programme. Cela 
dépend entre autres du type 
de matériel dont vous dispo- 
sez. Ici, le programme est 
conçu pour fonctionner sur 
les plus petits ordinateurs. 
Les dialogues entre l'utilisa- 
teur et l'ordinateur restent 
notamment à un très bas 
niveau qu'il serait facile 
d'améliorer. 


11 


12 


Le calendrier 


En France, il est normal d'écrire une 
date sous la forme jour-mois-année. 
En Angleterre et aux Etats-Unis, 
l'ordre est différent : 
mois-jour-année. 

On peut avoir besoin de connaître le 


Le 15 octobre 1582 était un vendredi. 
En partant de cette origine, l'ordina- 
teur calcule le jour correspondant à 
une date, semaine par semaine. On 
peut donc obtenir le calendrier de 
n'importe quelle année. 


nom du jour dans l’année correspon- 
dant à une date précise. Par exem- 
ple, le 14 juillet 1789 était-il un 
mardi ? Notre programme est capa- 
ble de faire ce calcul ainsi que le cal- 
cul réciproque. Toutefois, nous ne 
pourrons remonter le temps au-delà 
de 1582, date à laquelle nous avons 
changé de calendrier pour adopter 
celui défini par le Pape Grégoire : le 
calendrier grégorien. 




















Transformation de nombres en 
noms 

Comment peut-on retrouver le nom 
d’un mois, connaissant son numéro 
entre 1 et 12 ? A la ligne 100 du pro- 
gramme, nous effectuons un petit cal- 
cul faisant correspondre à chaque mois 
une ligne du programme. Ainsi, pour le 
troisième mois de l’année, ‘N° prend la 
valeur 130. A cette ligne, nous plaçons 
‘MARS dans la variable 0$. Cette pro- 
cédure utilise donc une ligne par nom 
de mois. Nous procédons de la même 
manière pour découvrir le nom du jour 
de la semaine. 


Comment fonctionne le calendrier grégorien 
Si l'on veut connaître le jour de la semaine correspondant à une date 
du calendrier grégorien, on doit procéder ainsi : tout d’abord, il faut 
calculer le nombre de jours total écoulé entre le premier jour du 
calendrier grégorien et la date donnée. Il existe pour cela une formule 
tenant compte des années bissextiles et des différentes longueurs de 
mois. On divise ce résultat par 7 pour obtenir le nombre de semaines 
complètes écoulées. Le reste détermine le jour de la semaine, sachant 
que le premier jour est le lundi et le septième jour le dimanche. 








Petite histoire du calendrier 
Notre calendrier actuel est basé 
sur le temps que met notre pla- 
nète pour effectuer une révolu- 
tion complète autour du soleil. 
Mais cette révolution ne s'effec- 
tue pas exactement en 365 jours. 
Il reste à peu près un quart de 
jour d'erreur par an. Pour cette 
raison, tous les quatre ans, il est 
nécessaire d'ajouter une journée : 
c'est l’année bissextile. Toute- 
fois, cela ne suffit pas encore et 
tous les 400 ans une année qui 
devrait être bissextile ne l'est 
pas. Enfin, tous les 3 000 ans, 
une petite correction est encore 
nécessaire. 


















Au Moyen Âge, on utilisait 
encore le calendrier julien tel qu'il 
avait été déterminé par Jules 
César en 46 avant Jésus-Christ. 
A la Renaissance commença une 
longue discussion sur la néces- 
sité de définir un nouveau calen- 
drier, car le calendrier julien ne 
correspondait plus du tout à la 
réalité des saisons. En 1582, 
Grégoire XIII définit son nouveau 
calendrier, largement utilisé 
aujourd'hui dans le monde entier. 
Bien entendu, notre programme 
suit ce calendrier qui ne convient 
toutefois pas pour les dates anté- 
rieures à 1582. 


Le programme 


5 REM CALENDRIER 

18 INPUT “JOUR ";J 

28 INPUT "MOIS "M 

30 INPUT "ANNEE "3 

40 A=Y 

50 REM MOIS DE L'ANNEE 

100 ON M GOTO 110,120,130,140,150, 

160,170,180,190,200,210,220 

110 O$="JANVIER":GOTO 300 

120 O$="FEVRIER":60T0 300 

130 O$="MARS":GOTO 300 

140 O$="AVRIL":G0TO 300 

150 0$="MAI":GOTO 300 

160 O$="JUIN":60T0 300 

170 O$="JUILLET":60T0 300 

180 O$="AOUT":G0T0 300 

190 0$="SEPTEMBRE":G0TO 300 

200 O$="OCTOBRE":G0TO 300 

210 O$="NOVEMBRE":G60T0 300 

220 0$="DECEMBRE":60T0 300 

300 IF M)2 THEN 330 

310 M=M+12 

320 A=A-1 

330 N=J+2#M#INT(. 6% (M+1))+A#INT(A/4) 
= INT(A/100)+INT(A/400) +2 

35@ N=INTO(N/7-INT(N/7))#7+.5) 

360 ON N+i GOTO 400,410,420,430,440, 

450,460 

400 A$="SAMEDI":60T0 500 

410 AS$="DIMANCHE":G0TO 500 

420 A$="LUNDI":60T0 500 

430 A$="MARDI":G0TO 500 

440 A$="MERCREDI":G60T0 500 

450 A$="JEUDI":G0T0 500 

460 A$="VENDREDI":60T0 500 

490 REM IMPRESSION 

500 PRINT A$;" "jJ;" "30$;" ";V 

510 GOTO 10 



























































Les grandes lignes 
du programme 
Pour utiliser notre programme, vous 
devez exprimer la date (jour-mois- 
année) par des nombres. Le numéro 
du mois permet de trouver la ligne 
dans laquelle la variable 0$ recevra 
le nom du mois correspondant. Puis 
le programme trouve le numéro du 
jour dans la semaine, ce numéro 
étant compris entre 0 et 6 (c'est la 
variable Y). De la même manière 
que pour les mois, cette variable 
permet d'accéder à une ligne du 
programme (entre 400 et 460) où la 
variante A$ recevra le nom du jour 
correspondant. Puis le programme 
imprime le résultat : nom du jour 
dans la semaine, numéro du mois et 
année. 


Commentaires 
Les lignes 10 à 30 servent à la saisie de la date : vous tapez le 
numéro du jour, le numéro du mois et l’année complète. Par 
exemple : 

6 

10 

1956 
Aucun test de validité n’est exécuté par le programme ; vous pouvez 
ainsi apprendre que le 31 février 1983 était un vendredi ! 
La ligne 100 sert à calculer le numéro de ia ligne qui attribuera à 0$ 
le nom du mois. Entre les lignes 300 et 350, la donnée est convertie 
en jour de la semaine. Le calcul est très précis et il est nécessaire 
d'arrondir le résultat à la ligne 330 : 365,25 jours dans l’année et 30,6 
jours par mois. 
A la ligne 350, nous découpons le nombre total de jours entre l'ori- 
gine du calendrier et la date donnée en tranches de sept jours. Ce 
qui nous intéresse, c’est le solde, c'est-à-dire le nombre de jours res- 
tants lorsqu'on a soustrait le plus grand nombre de semaines entières 
possibles : c'est le résultat de N—INT(N/7)*7. Ce nombre est com- 
pris entre 0 et 6. Puis il est multiplié par 10 et ajouté à 400, simple- 
ment pour former un numéro de ligne compris entre 400 et 460. 





Test 

Afin d'être certain du bon fonctionnement de ce programme, vous 
devez le tester. Deux tests simples vous le permettent. 

Tout d'abord, essayez le programme avec sept dates consécutives, afin 
de vérifier que les noms des jours sont correctement générés. 

Dans le second test, donnez douze dates correspondant au premier jour 
de chaque mois. Vous vérifiez ainsi que les noms des mois sont pro- 
duits correctement. En procédant de cette manière, vous vérifiez égale- 
ment que les noms des jours sont justes. 

Si ces tests fonctionnent normalement, le programme est certainement 
juste. Vous pourrez le confirmer en utilisant des dates extraites d'un 
calendrier officiel. 

En cas d'erreur, vous devrez alors travailler minutieusement sur le pro- 
gramme, le faire avancer ligne par ligne, et vérifier après chaque calcul 
la validité du résultat. N'hésitez pas à utiliser le mode TRACE" dont 
nous avons parlé au début de ce livre. 





Variation 

Une variante importante de 
notre programme consisterait à 
l'utiliser comme sous- 
programme dans un pro- 
gramme plus important, un 
agenda par exemple. Il suffit 


Améliorations 

Vous pouvez affiner et amélio- 
rer la partie saisie des données, 
notamment en vérifiant la vali- 


dité des dates (numéro du jour, 
numéro du mois, date posté- 
rieure à 1582). De plus, le 29 
février n'existe que lorsque le 
numéro de l’année est divisible 


par 4 sans générer de reste 

dans la division. ‘A’ étant 

l'année, si l'équation suivante 

est vérifiée : 
A-—INT(A-—4)*4=0 

il s’agit d'une année bissextile. 





pour cela de supprimer les 
lignes de saisie et de placer 
dans les variables J, M, A les 
trois nombres représentant la 
date. Appelez ce sous- 
programme par l'instruction 
"GOSUB"’ et remplacez l'instruc- 
tion END” de la ligne 510 par 
"RETURN. 

Vous pouvez ainsi imprimer 
votre propre calendrier ou lais- 
ser ce programme fonctionner 
constamment dans votre ordi- 
nateur (dans ce cas, il est inté- 
ressant, si votre ordinateur pos- 
sède la fonction ‘TIME, de 
l'utiliser pour obtenir l'heure et 
un changement de jour 
automatique). 13 


14 








tire un nombre au hasard entre 0 et 
99. Vous devez le deviner et, pour 
cela, vous disposez de huit chances 
au total. Le jeu est plus intéressant 
lorsque l'ordinateur délivre des 
commentaires dont l'effet est 
d'autant plus surprenant qu'ils sont 
imprévisibles. Le commentaire émis 
est donc tiré au hasard parmi les dix 
pré-enregistrés. Pour cela, l'ordina- 
teur tire un chiffre entre 0 et 9. Si le 
5 sort, c'est le cinquième commen- 
taire qui apparaîtra. 

Ces nombres tirés au hasard sont 
produits par un générateur de 
nombres aléatoires. 


ÈS 





Sn trot et ps 









Ebauche du programme de tirage 
au sort 

Notre programme crée donc un nom- 
bre que nous appellerons ’Z’. Comme 
nous limitons le nombre d'essais à 
huit, nous avons besoin d’un comp- 
teur ‘’K’. Il commencera à 0, puis sera 
incrémenté de 1 à chaque tour. Il fau- 
dra ensuite vérifier que la valeur 8 
n'est pas encore atteinte. 

A chaque essai, un message tiré au 
hasard invitera le joueur à taper un 
nouveau nombre mémorisé dans la 
variable ‘G’. On compare ensuite *G' à 
"Z'. Si "G’ égale ‘Z', le joueur a 
trouvé. 

Si G' est supérieur à ’Z’, le pro- 
gramme indique que votre nombre est 
trop grand, et inversement si G' est 
inférieur à ‘Z’, il indiquera que votre 
nombre est trop petit. Si ‘Z’ n'est pas 
trouvé après huit tours, le joueur a 
perdu et l'ordinateur donnera un der- 
nier commentaire à nouveau tiré au 
hasard parmi dix. 
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Ce jeu se présente ainsi : l'ordinateur 


Tirage au sort 
Le nombre à découvrir est produit par un générateur de nombres 
aléatoires qui n’est rien d'autre qu’un programme. Considérons un 
nombre compris entre 0 et 1 et formé par les 10 premières déci- 


males de RÈ Si vous multipliez ce chiffre par lui-même à chaque 


tour, vous obtiendrez des nombres formés de suites de chiffres au 
hasard. En élevant un nombre compris entre 0 et 1 au carré, le 
résultat est de plus en plus petit et tend vers 0. Pour cette raison, 
on vérifie à chaque fois que le nombre que l'on utilise est supérieur 
à 0,4. Sinon, on lui ajoute 0,35. 
























Dans notre jeu, il existe trois circons- 
tances pouvant provoquer l'appari- 
tion d'un commentaire : lorsque vous 
devez faire un nouvel essai, lorsque 
vous avez gagné, et lorsque vous 
avez perdu. 


a virgule. S 
es, on extrait les quatrième 
F Si Q est inférieur à 0,4, 0 


Le choix du commentaire 
En fonction de la valeur de 
N, l'exécution passe à une 
ligne comprise entre 200 et 
290. C'est le rôle de la 
ligne 140. On retrouve le 
même procédé aux lignes 
420 et 620. 





Le programme 


S REM TROUVER DES NOMBRES TIRES AU 
HASARD, AVEC DES COMMENTAIRES 
ALEATOIRES 

19 PRINT "TROUVEZ UN NOMBRE ENTRE 0 

% ET 99" 

: 20 PRINT "VOUS AVEZ 8 CHANCES..." 

30 PRINT "DONNEZ D'ABORD UN CHIFFRE 
ENTRE @ ET 0.35" 

48 INPUT T 

50 0=0.3141592654 

68 O=0+T 

65 REM UN NOMBRE AU HASARD EST TIRE... 

70 IF (@(=0.4) THEN 0=0+0.35 

71 0=0+0 

72 R=INT(O*100000) 

73 S=INT(Q+1000) +100 














74 1Z=R-S 

95 REM LE JEU COMMENCE 

100 K=0 

110 IF K=B THEN GOTO 600 . . 

128 kK=k+1 Améliorations 

LR LL SE à On peut étendre et compléter le 
En A D programme ci-dessus de plusieurs 

195 REM DIX COMMENTAIRES CHOISIS manières. Si vous souhaitez aug- 
AU HASARD n 

200 PRINT "COMMENTAIRE 1 : DEVINEZ menter le nombre de commentai- 
MAINTENANT": G0TO 300 res, vous devez utiliser des nom- 

218 PRINT "COMMENTAIRE 2 ":G0TO 300 j i 

220 PRINT "COMMENTAIRE 3 ":GOT0 300 bres aléatoires à deux chiffres où 

230 PRINT "COMMENTAIRE 4 “:GOTO 300 plus. Il faut donc modifier la ligne 

240 PRINT "COMMENTAIRE 5 “:G60T0 300 930 en copiant la ligne 73. Dans 

250 PRINT "COMMENTAIRE 6 ":GOTO 300 Te 

260 PRINT "COMMENTAIRE 7 “:GOTO 300 ce cas, vous pouvez définir 100 

278 PRINT “COMMENTAIRE 8 ":G0T0 300 messages différents. Si ce nombre 

280 PRINT "COMMENTAIRE 9 “:GO0TO 300 

290 PRINT "COMMENTAIRE 10 “:GOTO 300 est trop grand, vous adapterez la 

300 INPUT 6 ligne 940 afin de restreindre l'inter- 

a ENS valle du nombre final. Par exem- 

320 IF (61) THEN 350 é 

330 PRINT Gj* EST TROP PETIT." ple, vous pouvez écrire 


340 GOTO 110 
350 PRINT G;" EST TROP GRAND." 
360 GOTO 110 


N=INT((R - S)/4). Veillez à utiliser 
une formule rendant tous les nom- 


408 REM COMMENTAIRE SI ON A TROUVE i- i 
id na UE Foue bres équi-probables. (Si vous vous 
420 ON N GOTO 440,450,460,470,480, limitez à 25, tous les nombres 
A ee compris entre 0 et 24 doivent sortir 
NT * Ü . 
M on eoroi ee F autant de fois sur un très grand 
450 PRINT "COMMENTAIRE 12":G0T0 550 nombre de tirages.) 


460 PRINT "COMMENTAIRE 13*:GO0T0 550 
470 PRINT "COMMENTAIRE 14":GO0OT0 550 
480 PRINT "COMMENTAIRE 15":G0T0 550 
490 PRINT "COMMENTAIRE 16":G0T0 550 
500 PRINT "COMMENTAIRE 17":G0T0 550 
510 PRINT "COMMENTAIRE 18":G0T0 550 
520 PRINT "COMMENTAIRE 19":G0T0O 550 
530 PRINT "COMMENTAIRE 20":GO0T0 550 
550 PRINT “VOUS AVEZ TROUVE EN ";Kk;" 


COUPS !" 
560 GOTO 800 
600 REM COMMENTAIRE EN CAS D'ECHEC 
610 GOSUE 900 
620 ON N GOTO 640,658,660,670,680, 
698,700,710,720,730,740,750 
640 PRINT “COMMENTAIRE 21 : NON 
TROUVE":G0TO 750 
650 PRINT "COMMENTAIRE 22 ":G0TO 750 
6b@ PRINT "COMMENTAIRE 23 ":GOTO 750 
678 PRINT "COMMENTAIRE 24 ":G0TO 750 
688 PRINT "COMMENTAIRE 25 ":GOTO 750 
À 690 PRINT "COMMENTAIRE 26 ":G60T0 750 
| 700 PRINT "COMMENTAIRE 27 “:GOTO 750 








À 710 PRINT "COMMENTAIRE 28 ":60T0 750 404 A S | Test 
À 720 PRINT "COMMENTAIRE 29 ":GOTO 750 squ € ë 2 
730 PRINT "COMMENTAIRE 30 ":G60T0 750 | Voici quelques données avec 
P À 750 PRINT "MON NOMBRE ETAIT "32; , . leurs résultats qui vous facilite- 
Fe ront le test du programme. On 
808 REM ON RECOMMENCE ? pose : J = 0 (ligne 40). 
810 PRINT "ON REJOUE (D/N) 2" ‘’H' vaut 10. 
820 INPUT B$ ù 
830 IF B$="N" THEN GOTO 850 Tour Hasard Message Votre Réponse 
840 GOTO 70 N £ À K N avant chaque valeur G?H 
850 PRINT "VOUS N'AVEZ PAS CONFIANCE et saisie G 
EN VOUS, EH ?" - 7: MSG 08 50 plus grand 
BB END 6 MSG 07 25 plus grand 
4 MSG 05 12 plus grand 
895 REM GENERATEUR DE NOMBRES ALEA ; pres SU 
JURES 2 7 MSG 08 9 plus petit 
SO IF QC+0.4 THEN 0=0+0,55 A HE es. 
919 0-0+0 1 MSG 12 Nouveau jeu 


920 R=INT(G#100000) 
930 S=INT(Q+10000) +10 
940 N=R-S 

950 RETURN 
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Vous utilisez certainement un réper- 
toire pour vos numéros de 
téléphone. 

L'ordinateur est particulièrement apte 
à stocker des informations. Tenir à 
jour un répertoire téléphonique doit 
donc lui être très facile. Sur ces 


deux pages, vous trouverez sept 
petits programmes composant 


ensemble un répertoire téléphonique. 
Nous avons volontairement réduit les 
programmes afin qu'ils puissent être 
exécutés sur une calculatrice pro- 
grammable en BASIC, mais l'ensem- 
ble ne peut gérer plus de dix noms 
et numéros de téléphone. 


Répertoire téléphonique 


de recherche du nom ou du numéro 
de téléphone, s'ajoutent les fonctions 
de modification, d'effacement et 
d'ajout. Il est également possible 
d'imprimer le contenu du répertoire 
sur papier si vous possédez une 
imprimante. 


Ce programme complet est perfor- 
mant car, aux fonctions habituelles 


L'ensemble des programmes 

Notre programme travaille avec un tableau 
de données ’A$' dimensionné à 20. Nous y 
stockons les dix noms ainsi que les dix 
numéros de téléphone. Le contenu d'une 
case ne peut excéder sept caractères (sur les 
calculatrices programmables ; ce n'est pas 
vrai sur les micro-ordinateurs), ce qui oblige 
à ne jamais dépasser cette limite. 

Les noms et les nombres sont enregistrés 
respectivement de A$(1) à A$(10) et de 
A$(11) à A$(20). Au début du programme, 
toutes les cases sont initialisées par des ‘Z' à 
l'emplacement des noms, et par des ‘9’ à 
l'emplacement des nombres. Cela permettra 
de savoir avec certitude si une case est vide 
ou non. 

Voici la liste des programmes : 


IV 
V 


VI 


— Menu 

— Recherche du numéro de téléphone 
correspondant à un nom donné 

— Recherche d'un nom correspondant à 
un numéro de téléphone donné 

— Enregistrement d'un nouveau nom 

— Suppression d'un enregistrement 
existant 

— Impression du répertoire 


VII— Remise à zéro. Tout le tableau est ini- 


tialisé avec ZZZZZ7Z et 9999999. 





Technique de recherche 
L'algorithme de recherche utilisé dans 
nos programmes est très simple. Il con- 
siste à comparer chaque élément du 
tableau avec l'élément recherché X$ 
jusqu'à détecter l'égalité. Appliquée à 
une recherche parmi les dix éléments, 
cette technique nécessite en moyenne 
cinq essais. En BASIC, nous utiliserons 
pour cela une boucle ‘FOR . NEXT'. 
Si l'on veut connaître l'élément dans le 
tableau A$(i) correspondant à X$, il 
faut écrire : 

120 FOR Z = 1 TO 10 

130 IF X$ = AS$(Z) THEN 180 

140 NEXT Z 

150 PRINT NOM”; X$; INCONNU” 
170 STOP 

180 PRINT A$(Z) 

Le compteur de boucles ‘’Z' indique en 
même temps la position de l'élément 
testé dans le tableau. Les éléments du 
tableau n'ont pas à être classés, ce qui 
simplifie l'algorithme. Sur des tableaux 
plus importants, le fait de classer des 
éléments par ordre alphabétique aurait 
permis d'utiliser d'autres algorithmes 
plus rapides. 





Dimensions du tableau 
Dans notre cas, le tableau a toujours la 
même dimension, On peut toutefois 
effectuer une recherche dans un tableau 
dont la dimension n'est pas constante. || 
suffit alors de convenir que la recherche 
s'arrêtera lorsque l'on détectera la fin du 
tableau. Pour marquer cette fin, il suffit 
de placer dans la dernière case un mot 
qui ne risque jamais d'apparaître, par 
exemple ‘AAAAAAA, Notre programme 
de recherche doit alors fonctionner diffé 
remment en testant à chaque fois le 
contenu de la case pour savoir s'il s'agit 
de la dernière ou non. Nous n'utilisons 
plus de boucle ‘FOR … NEXT' mais 
nous devons utiliser un index ‘Z' initia- 
lisé à 1 et que nous incrémentons de 1 
après chaque test. 
gmz=1 
910 IF A$Z) = "AAAAAAA” THEN 
SBO:REM FIN? 
920 IF A$Z) = X$ THEN 970:REM 
TROUVE? 
9%z2=7+1 
940 GOTO 910 
950 PRINT “INEXISTANTI":REM FIN 
960 STOP 
970 PRINT A${Z}:REM TROUVE! 


Programme | Programme III 


Programme V 


Î REM MENU 199 REM RECHERCHE D'UNNOM PAR UN NUMERO 399 REM EFFACEMENT D'UN ENREGISTREMENT 
5 CLEAR 1000 200 INPUT “TAPEZ LE NUMERO *;Ys 400 PRINT “ATTENTION ! EFFACEMENT* 
6 DIM A$(30) 210 PRINT “LE NUMERO EST * 41@ INPUT "TAPEZ LE NOM A EFFACER “;Xx$ 
18 PRINT:PRINT "1. RECHERCHE DU NUMERO PAR LE NOM“ 220 FOR 2=1 TO 18 420 FOR Z=1 TO 10 
20 PRINT “2. RECHERCHE DU NOM PAR LE NUMERO" 238 W=1+10 430 IF A$(Z)=X$ THEN 460 
30 PRINT "3. NOUVELLE DONNEE" 235 IF Y#=A$(W) THEN 280 448 NEXT 1 
40 PRINT "4, EFFACEMENT D'UN NUMERO" 248 NEXT 2 450 PRINT “NOM ";X$;" INCONNU. * 
50 PRINT "5, REPERTOIRE TELEPHONIQUE" 258 PRINT “NOMBRE “;Y$;" INCONNU." 455 GOTO 108 
6@ PRINT “6. REMISE À ZERO" 260 PRINT "RECOMMENCEZ." 460 W=1+10 
70 PRINT: INPUT"VOTRE CHOIX “;A 278 GOTO 18 465 PRINT A$(Z);" “;ÿAS$(W);" EFFACE."* 
80 ON À G60TO 100,200,300,408,500,600 288 PRINT “LE NOM EST ";A#(Z) 470 A$(Z)="2111111" 
290 GOTO 10 488 A$(W)="9999999" 


Programme Il Programme IV 


490 GOTO 10 


Programme VI Programme VII 


99 REM RECHERCHE DE NUMERO PAR NOM 299 REM NOUVELLE ENTREE 

188 INPUT “TAPEZ LE NOM S.V.P.*3x$ 300 PRINT “ESPERONS QU'IL RESTE DE LA PLACE..." 499 REM LISTE DU REPERTOIRE 599 REM REMISE À ZERO 
118 PRINT "LE NOM EST “38 319 FOR Z=1 TO 10 500 PRINT “LISTE DU REPERTOIRE* 608 PRINT “EFFACEMENT DE 
128 FOR Z=1 TO 10 3208 IF A$(Z)="2111111" THEN 350 518 FOR 2=1 TO 1€ TOUTE LA LISTE" 

138 IF KS=A$(Z) THEN 180 330 NEXT 515 IF A$(Z)="2712121" THEN 530 618 FOR Z=1 TO 10 

140 NEXT 7 340 PRINT "LE REPERTOIRE EST-PLEIN..." 528 PRINT A$(2) 620 AS$(Z)="2111111" 

158 PRINT “NOM ";X$;" INCONNU." 345 GOTO 10 521 W=2+10 638 A$(1+18)="9999999" 
160 PRINT “RECOMMENCEZ." 350 INPUT “TAPEZ VOTRE NOUVEAU NOM “;A$(2) 522 PRINT A$(W) 64@ NEXT 7 

178 GOTO 10 355 2=1+10 538 NEXT 1 645 PRINT “C'EST EFFACE." 
188 1=2+10 360 INPUT “TAPEZ LE NUMERO “;A$(2) 548 PRINT "FIN." 658 GOTO 10 

181 PRINT “LE NUMERO EST “;A$(2) 370 GOTO 10 550 60T0 18 

198 GOTO 10 


Programme | — Menu 

Les instructions placées entre les lignes 5 et 70 
affichent à l'écran les différentes possibilités 
offertes par l'ensemble des programmes. Ce 
programme utilise l'instruction "ON A GOTO"’ 
suivie d'un numéro de ligne, pour lancer le pro- 
gramme voulu en fonction du choix de 
l'utilisateur. 


Programme Il — Recherche d'un numéro 
Le programme vous demande de taper le nom 
dont vous souhaitez trouver le téléphone (ligne 
100). A la ligne 110, l'ordinateur l'affiche à nou- 
veau dans un but de confirmation. Les lignes 
120 à 140 constituent la boucle de recherche 
qui scrute les cases A$(1) à A$(10) jusqu'à 
trouver une égalité. Si le nom est effectivement 
trouvé, le numéro est affiché (ligne 180-181). 
S'il n'existe pas dans le répertoire, un message 
vous en informe (ligne 150) et le programme 
revient au menu. 


Programme 111 — Recherche d'un nom 

Il fonctionne d’une manière similaire au pro- 
gramme précédent. Vous devez donner un 
numéro de téléphone qui s'appellera ‘Y$'. Une 
recherche a lieu pour déterminer si ce numéro 
se trouve dans les cases A$(11) à A$(20). Si le 
numéro est effectivement trouvé, le programme 
affiche le nom correspondant ; sinon, un com- 
mentaire vous indique que ce numéro est 
inconnu. Le nom est trouvé grâce au compteur 
de boucles ‘’Z' servant d'indice dans le parcours 
du tableau A$(n). 


Programme IV — Nouvelle entrée 

Entre les lignes 300 et 345, le programme cher- 
che la première case libre. Il recherche pour 
cela une case dont le contenu serait ‘ZZZZZZZ7". 
Si le tableau est déjà plein, nous en sommes 
informés par la ligne 340. Si tout va bien, le 
programme demande ensuite le nom (ligne 350) 
et le numéro correspondant (ligne 360). Le nom 
se met dans la case A$(Z), le numéro se ran- 
geant dans la case A$(Z + 10). 


Programme V — Effacement d'un numéro 
En partant du nom, le programme cherche la 
case correspondante pour y écrire "ZZZZZZZ’ 
puis " dix cases plus loin. 


Programme VI — Liste du répertoire 

Ce programme imprime la liste complète des 
noms et des numéros de téléphone. La ligne 
515 détecte si la case est vide ou non : seules 
les cases effectivement utilisées sont 
imprimées. 


Programme VII — Effacement de la liste 
Cette opération n'est nécessaire que lorsque 
vous créez le tableau en mémoire pour la pre- 
mière fois. Utilisez-le donc avant de rentrer 
quoi que ce soit, cela vous assurera que les 
autres parties fonctionneront correctement sans 
produire d'absurdités. Toutes les cases A$(1) à 
A$(10) recevront le mot ‘ZZZZZZZ' et toutes les 
cases A$(11) à A$(20), ‘9999999. 


Le test ne constitue pas un problème 
Lorsque tous les programmes auront été tapés, 
commencez par utiliser le programme VII, et 
assurez-vous que toutes les variables A$(1) à 
A$(10) sont bien occupées par ‘ZZZZZZZ'. 
Ensuite, passez au programme VI (impression 
de la liste). S'il fonctionne correctement, seul le 
titre s’affichera. 

Utilisez ensuite le programme IV (nouvelle sai- 
sie) pour rentrer un nom et un numéro de télé- 
phone dans le fichier. Reprenez ensuite le pro- 
gramme VI pour vérifier que vous obtenez bien 
la même chose que ce que vous avez tapé. 

Si votre ordinateur dispose d’une mémoire 
importante, vous pouvez alors considérable- 
ment étendre les possibilités de l’ensemble. 
Pour connaître le nombre maximum de caractè- 
res que vous pouvez placer dans une variable 
alphanumérique, consultez votre manuel. Vous 
pourrez certainement aussi augmenter le nom- 
bre de noms et de numéros de téléphone si 
vous pouvez aller au-delà de A$(30), [par 
exemple, A$(100) vous permettrait d'enregistrer 
50 noms et 50 numéros de téléphonel]. 
N'oubliez pas de modifier l'instruction DIM en 
conséquence. 


Améliorons le programme 

Remarquez que les numéros sont stockés sous 
forme de chaînes de caractères. Rien ne vous 
interdit donc de différencier l'indicatif grâce à 
des parenthèses ou des tirets, par exemple 
(16-1) 43-55-47-23. Il faut, dans ce cas, que le 
programme précise la manière d'écrire un 
numéro au clavier. Vous pouvez aussi mémori- 
ser les noms des villes dans d’autres cases du 
tableau, par exemple A$(21) à A$(30). Ceci 
constitue un bon exercice pour apprendre à 
modifier un programme. 
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L'ordinateur devine 


des nombres 


Aux pages 14 et 15, nous avons étu- 
dié un programme dont le but était 
de vous faire deviner des nombres 
produits au hasard par l'ordinateur. 
Nous avons vu comment il était 


L'utilisation de questions successives 
pour trouver un nombre implique 

quelque chose d'important : quel est 
le nombre minimum d'étapes néces- 
saires pour trouver un élément dans 


un tableau ? Nous étudierons ce 
point dans ce chapitre. 


possible de commenter de manière 
originale et inattendue les différentes 
étapes de ce jeu. 

Il s'agit maintenant du problème 
inverse : l'ordinateur doit deviner en 
moins de dix questions un nombre 
que vous aurez déterminé entre 1 et 
127. Il le devine au plus tard au 
septième coup. Naturellement, il sup- 
pose que vous serez fairplay en 
restant dans la limite des nombres 
donnés. Sinon, il s'en rendra compte 
et vous le signalera. 


Principe de la recherche 

Supposons que nous cherchions un nombre entre 
Tet 3; nous demandons s'il ne s’agit pas de 2. Si 
la réponse est négative, nous demanderons si le 
nombre cherché est plus grand ou plus petit que 
2. La réponse à cette question nous permettra de 
trouver la solution. Supposons que le nombre 
cherché soit compris entre 1 et 7. Raisonnons de 
la même manière. Le milieu de l'intervalle 1-7 est 
4. Est-ce 4 ? Non ? Est-ce inférieur à 4 ? Si oui, le 
nombre est donc 1, 2 ou 3. Nous avons déjà étu- 
dié ce cas dans les lignes ci-dessus. Si le nombre 
est supérieur à 4, il vaut 5, 6 ou 7. Le problème 
est résolu en deux questions : 6 ? supérieur à 6 ? 
Cela semble compliqué, mais prenez une feuille de 
papier et écrivez les nombres de 1 à 15. Choisissez 
le nombre du milieu, c'est-à-dire 8. Puis détermi- 
nez le milieu de 1 et 8, c’est-à-dire 4. Continuez 
ainsi de suite jusqu'à déterminer le nombre maxi- 
mum de questions nécessaires pour trouver un 
nombre compris dans cet intervalle. Vous consta- 
terez qu'en quatre essais tout nombre est trouvé. 
Pour 31 nombres, cinq étapes sont nécessaires ; 
pour 63, six étapes. 





Trouvons un nombre 

Quand on cherche un nombre entre 1 et 127, 
sept étapes sont nécessaires au maximum. 64 
est le milieu de l'intervalle 1-127. Si le nombre 
recherché n'est pas 64, nous diviserons l'inter- 
valle 1-127 en quatre parties (1 à 32, 33 à 64, 65 
à 96, 97 à 127) et nous continuerons ainsi en 
divisant en deux chaque intervalle. Chaque fois 
que nous divisons par deux un intervalle, la 
quantité d'éléments que nous étudions est divi- 
sée par deux. Nous encadrons donc de plus en 
plus finement le nombre à trouver. 

Notre programme prend 64 comme milieu entre 
1 et 127. Si le nombre cherché est inférieur à 
64, il divisera l'intervalle 1-64 à son tour en deux 
parties égales : 1-31 et 32-63. Si le nombre est 
supérieur à 64, le programme considère alors les 
intervalles 64-96 et 96-127 (c'est-à-dire 64 + 
64/2 = 96). L'ordinateur applique cette techni- 
que jusqu'à trouver l'égalité. Il doit donc obliga- 
toirement obtenir la réponse en sept essais 
maximum. S'il n'y arrive pas, vous n'avez pas 
choisi un nombre compris entre 1 et 127. 



























Le programme 


5 REM L'ORDINATEUR DEVINE DES NOMBRES 


100 
181 
182 
103 
104 
105 
186 
107 
188 
109 
110 
111 
150 
151 
152 
168 
170 
188 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


“S'IL VOUS PLAIT, VEUILLEZ RESPECTER" 
"LES REGLES ET NE CHANGEZ PAS DE NOMBRE" 
"EN COURS DE JEU." 

“JE DEVINE AU MAXIMUM EN 7 COUPS." 

"LE NOMBRE QUE VOUS ALLEZ TAPER DOIT" 
PRINT "ETRE COMPRIS ENTRE { ET 127." 

PRINT "NE L'OUBLIEZ PAS !" 

PRINT:PRINT "VOTRE REPONSE DOIT ETRE :" 

PRINT “‘T' POUR TROUVE'" 

PRINT "‘G' POUR TROP GRAND" 


PRINT “‘P' POUR TROP PETIT" 

PRINT 

P=64 

N=1 

F=64 

PRINT “LE CHIFFRE EST PEUT-ETRE ";P;".,," 
PRINT "QU'EN PENSEZ-VOUS ?" 

INPUT A$ 

PRINT "VOUS AVEZ DIT ";A$;"..." 

IF A$="T" THEN 260 


IF A$="6" THEN 350 

IF A$="P" THEN 320 

PRINT “VOUS NE RESPECTEZ PAS LES REGLES !" 
PRINT "TAPEZ T,G OÙ P !" 

60TO 180 

PRINT "J'AI GAGNE EN ";N;" COUPS! LA CLASSE..." 
INPUT "ON REJOUE (‘OUI' OÙ NON‘) ";B$ 

IF B$="OUI" THEN 107 

PRINT "VOUS MANQUEZ D'ENTRAIN. AU REVOIR !" 
END 

F=F/2 

P=P+F 

60TO 370 

F=F/2 

P=P-F 

N=N+1 

IF N=7 THEN 410 

IF N>=7 THEN 450 

PRINT "TOUR";N 


60TO 160 

PRINT "C'EST PRESQUE TROUVE..." 

GOTO 160 

PRINT "VOUS M'AVEZ TROMPE ! JE NE JOUE PLUS" 


PRINT 
END 


"AVEC VOUS !" 
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Le jeu de NIM 









Le jeu de NIM est aussi vieux que pas. Cette stratégie, parfaitement 







simple. Pour y jouer, deux partenai- déterminée, peut être programmée, 
res et une poignée d'allumettes suffi- ce qui permet ensuite à n'importe 
sent. Au début de la partie, les qui de jouer contre l'ordinateur. 
joueurs se mettent d'accord sur le Sur cette double page, nous décri- 
nombre d'allumettes utilisées. Les vons le fonctionnement de ce 






joueurs prennent tour à tour des allu- programme. 
mettes, au moins une à chaque fois. 

Le nombre maximum que chacun 

peut prendre est déterminé au début 

de la partie. Celui qui doit prendre la 

dernière allumette a perdu. Notez 

qu'il existe d’autres versions de ce 

jeu utilisant plusieurs tas d’allumettes 
simultanément. Ce jeu est intéressant 

par la stratégie qu'il nécessite et qui 

fait perdre celui qui ne la connaît 






















La stratégie pour gagner 
Votre adversaire a perdu quand il trouve, à son avant- 
dernier tour, deux allumettes de plus que le maximum qu'il 
a le droit de prendre. S'il prend le maximum, il en reste 
donc deux. Vous n'en prenez qu'une et votre adversaire doit 
prendre la dernière. Il a donc perdu. S'il prend, à l'avant- 
dernier tour, une seule allumette, prenez alors le nombre 
maximum de manière à ce qu'il lui reste la dernière. 

Vous connaissez le nombre total ‘S’ d'allumettes et le maxi- 
mum ‘M auquel vous avez droit. Comme vous souhaitez 
que votre adversaire perde, vous calculez ’S — 1’. Décompo- 
sez ensuite ce nombre par paquets de "M +1’ allumettes. 
Supposons que le nombre total d'allumettes soit 22, et que 
‘M vaille 4. Vous obtenez : "S —1" = 21. Divisez ce nombre 
en paquets de 'M+1' = 5 allumettes. Cela fait 4 paquets. Il 
reste une allumette isolée. Lorsque c'est à votre tour de 
jouer, prenez cette allumette. Puis prenez ensuite à chaque 
tour le complément à 5 ('M+1') du nombre d'allumettes 
jouées par votre adversaire. Le mieux est d'utiliser cette 
stratégie dès le début du jeu si vous le pouvez. Si vous 
appliquez cette stratégie au deuxième ou 
au troisième tour et si votre partenaire 
la connaît et l'a déjà appliquée, vous 
ne pourrez rattraper votre handicap. 
S'il a pris les allumettes au hasard, 
vous avez encore toutes vos chances. 
Vous pourrez ensuite calculer en com- 
bien de temps vous allez gagner. 





Réalisation d'un jeu sur ordinateur 
Pour réaliser un jeu sur ordinateur, il faut 
créer des conditions de jeu intéressantes, 
accompagnées de messages et de com- 
mentaires. Au début du jeu, l'ordinateur 
énonce clairement les règles et demande 
au joueur de lui fournir le nombre total 
d'allumettes ainsi que le nombre d'allumet- 
tes pouvant être prises à chaque coup. Le 
programme doit vérifier si ces nombres 
sont compatibles avec les règles. Ensuite, 
il faut déterminer qui commencera à jouer. 
Par correction, l'ordinateur laisse l’adver- 
saire commencer. De toute manière, le 
joueur perd s'il ne connaît pas la stratégie. 
La troisième partie de notre programme 
est composée par le jeu lui-même. Entre 
les lignes 199 et 310, l'adversaire joue. 
Entre les lignes 319 et 480, c'est au tour 
de l'ordinateur. La stratégie de l'ordinateur 
est résumée en ligne 320. Elle n'est pas 
infaillible. Pour tromper son adversaire, 
l'ordinateur utilise un générateur de nom- 
bres aléatoires (ce programme est placé 
entre les lignes 800 et 850). Si l'adversaire 
est pris en flagrant délit de tricherie, le 
commentaire doit être mordant. 



























Le programme 


10 REM LE JEU DE NIM 


280 IF S=0 THEN 460 
290 PRINT "RESPECTEZ LES REGLES..." 
300 S=S+7 


11 PRINT "LE GENERATEUR DE NOMBRES ALEATOIRES VA" 310 GOTO 200 
12 PRINT "SE PREFARER, TAPEZ UN NOMBRE ENTRE" 


13 INPUT "Q ET 0.5 ";T 
14 0=0.3141592654 +T 
19 REM REGLES DU JEU ET PREPARATION 


20 PRINT "CHACUN, NOUS PRENDRONS AU MOINS UNE" 


21 PRINT "ALLUMETTE À CHAQUE TOUR ;" 


319 REM TOUR DE L'ORDINATEUR 
328 1Z=S-1-INT((S-1)/(M+1))x(M+1) 
330 IF Z(>0 THEN 370 

340 IF MC=S THEN V=M:GOTO 342 
341 V=S 


22 PRINT "ET AU PLUS, LE NOMBRE QUE VOUS ALLEZ" 342 GOSUB 800 


23 PRINT "DEFINIR. CELUI QUI PRENDRA LA DERNIERE" 


24 PRINT "ALLUMETTE AURA PERDU." 


30 PRINT "VEUILLEZ MAINTENANT REPONDRE :" 
31 PRINT "COMBIEN D'ALLUMETTES AU TOTAL ?" 


32 INPUT S 
33 PRINT S;" ALLUMETTES AU TOTAL..." 
90 IF S>=2Q THEN 120 


100 PRINT "CE N'EST PAS BEAUCOUP. ENFIN'" 


343 IF N<=V THEN 346 

344 N=N-V 

345 GOTO 343 

346 ZEN 

350 PRINT "VOUS ME COMPLIQUEZ LA VIE." 

360 GOTO 380 

370 PRINT "VOUS NE VOULEZ VRAIMENT FAS GAGNER." 
380 5=S-7 


120 PRINT "COMBIEN PEUT-ON EN PRENDRE AU MAXIMUM 7?" 390 PRINT "JE PRENDS ";2;" ALLUMETTES." 


130 INPUT M 


131 PRINT "ON PEUT DONC EN PRENDRE ";M;" AU" 


132 PRINT "MAXIMUM..." 

140 IF M>=2 THEN 170 

150 PRINT "CE CAS EST ININTERESSANT." 
168 GOTO 120 

170 IF S>M+1 THEN 200 

180 PRINT "IL EN FAUDRAIT PLUS." 

190 GOTO 50 


199 REM TOUR DU JOUEUR 

200 PRINT "A VOTRE TOUR." 

21@ INPUT "COMBIEN D'ALLUMETTES ";7 
220 IF 20 THEN 230 


391 PRINT "IL EN RESTE DONC ";5S 
440 IF S=Q THEN 480 

450 GOTO 200 

46@ PRINT “VOUS AVEZ PERDU." 

470 GOTO 490 

480 PRINT "VOUS AVEZ ENFIN GAGNE." 


489 REM NOUVEAU JEU ? 

490 PRINT "ENCORE UN PETIT TOUR ?" 
500 INPUT “('OUI' OU ‘NON'‘)";E$ 
510 IF E$="OUI" THEN 30 

520 PRINT "AU REVOIR." 

530 END 


799 REM GENERATEUR DE NOMBRES ALEATOIRES 


221 PRINT "VOUS DEVRIEZ AVOIR HONTE DE VOULOIR ME" 800 IF Q(=0.4 THEN Q=0Q+0.235 
222 PRINT "TROMPER. DONNEZ UNE VALEUR DIFFERENTE" 810 Q=Qx0 


223 PRINT "DE ZERO." 

224 GOTO 200 

230 IF Z{=M THEN 260 

240 PRINT "VOYEZ-VOUS CE TRICHEUR'" 
250 GOTO 200 

268 S=5-7 


820 R=INT(Q*100000) 
830 U=INT(O#*10000)*x10 
840 N=R-U+1 

850 RETURN 


261 PRINT "VOUS AVEZ PRIS ";32;" ALLUMETTES." 


262 PRINT "IL EN RESTE DONC ";5 
27@ IF S>=1 THEN 320 


Compter de manière stratégique 

La stratégie du jeu est programmée entre les 
lignes 320 et 380. On divise ’S — 1’ par 
"M+1' et on multiplie la partie entière du 
nombre par M +1’. On soustrait le résultat 
de 'S—1’. Il reste le nombre d’allumettes à 
prendre : ’Z’. Si ‘Z’ égale 0, on prend un 
nombre aléatoire d'allumettes compris entre 
1 et ‘M’ ou, si 'S’ est inférieur à ‘M, 
compris entre 1 et ’S’. En outre, si le 


programme passe à la ligne 370 et si aucune 
erreur n'est commise, la ligne 370 sera 
répétée à chaque tour. 


Commentaires 

Le programme est d'une réalisation simple et facile à 
comprendre lorsque l'on connaît parfaitement la stratégie 
utilisée. Le générateur de nombres aléatoires est initialisé à 
la ligne 14. Les règles du jeu sont affichées par les lignes 19 
à 24. Le programme demande ensuite le nombre maximum 
d'allumettes : ’S'. Ce nombre diminue à chaque tour 
puisqu'on enlève un certain nombre d’allumettes à chaque 
fois. M’ est le nombre maximum d'allumettes que l’on peut 
retirer à chaque tour. On le tape à la ligne 130. Si 'M' est 
égal à 1 ou 'S' est inférieur ou égal à 'M+1', le programme 
refuse ces données. Les données 

fournies par le joueur sont traitées par 

les lignes 199 à 310. S'il tape zéro e 
allumette, la donnée sera refusée. Il © 

en est de même s’il donne une valeur (2 
supérieure au maximum convenu. Si 

le partenaire a pris plus d'allumettes 

qu'il n’en restait, le programme 

affiche un message par la ligne 290 et le tour est annulé. A 
partir de la ligne 320, c'est au tour de l'ordinateur de jouer. 
Les lignes 490 à 512 servent à tester s'il est utile de poursui- 
vre la partie. Enfin, entre 800 et 850, se situe le générateur 
de nombres aléatoires. 
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Simulation 


La simulation, c'est-à-dire l'opération 
qui consiste à imiter des faits réels 
sur ordinateur, constitue une bran- 
che importante de l'informatique. Un 
exemple de ce genre est l'étude de 
la circulation routière. Vous pouvez 
suivre le schéma ci-dessous. On con- 
duit d’un point ‘A’ vers un point 'S'. 
Les rectangles représentent les por- 
tions de routes à vitesse réglemen- 
tée. Les numéros inscrits à l'intérieur 
représentent les secondes nécessai- 
res pour parcourir le tronçon. Les 
petites boîtes ovales simulent les 
feux de circulation. Le nombre placé 
à l'intérieur représente le temps 
maximum d'attente en secondes. 
Toute attente entre O0 et ce maximum 
est possible. Les losanges représen- 
tent les carrefours. ‘M’ et ’N’ repré- 
sentent les pourcentages de conduc- 
teurs bifurquant au lieu de continuer 
tout droit. Chaque trajet à travers les 
rues est différent, comme d’ailleurs 


nous l'apprend la vie quotidienne. 
Les temps d'attente sont fixés par un 
générateur de nombres aléatoires. 
Les temps de conduite et d'attente 
sont additionnés pour que l'on 
puisse comptabiliser la durée totale 
de trajet. À chaque carrefour, un 
nombre aléatoire entre 1 et 100 est 
produit. S'il est inférieur à ‘N' ou 
M’, on bifurque ; sinon, on continue 
tout droit. Il est important d'étudier 
de nouveaux cas pour en déduire 
ensuite une règle fiable. 





(30)F6 216 224 
O 


250 


T: Tronçon 
F: Feux tricolores 
C: Croisement 





La simulation des événements composant la 
circulation routière 

Notre exemple comprend deux carrefours, sept 
portions de route à vitesse non réglementée, 
c'est-à-dire dont les durées de trajet sont compri- 
ses entre 60 et 290 secondes, et six feux tricolores 
avec un temps d'attente compris entre 30 et 80 
secondes maximum. Les croisements sont très 
faciles à utiliser. Chacun est caractérisé par le 
pourcentage d'automobilistes empruntant la bifur- 
cation. Chaque chemin individuel est une simple 
combinaison de temps de parcours et de période 
d'attente. Le plus court chemin dure 580 secon- 
des, le plus long 810. Le hasard est créé par un 
générateur de nombres aléatoires produisant un 
nombre entier de deux chiffres compris entre 00 
et 9. Si ce nombre doit être plus petit que 40, 
on s'arrange pour lui soustraire 40 autant de fois 
que nécessaire. En dessous de 20, le générateur 
de nombres n'est plus très performant car les 
nombres tirés au hasard entre 80 et 100 
produisent un déséquilibre en raison de 
cette soustraction de 40. Si vous désirez 
améliorer ce générateur, arrangez-vous 
pour que tous les nombres supérieurs à 80 
soient rejetés. Cela prend du temps. 
Comme nous ne nous intéressons ici qu’au 
principe de la simulation, nous conserve- 
rons ce déséquilibre. 








Le programme de simulation 

Notre programme n'est pas compliqué. Il 
demande les valeurs des nombres ‘M et ’N’ 
représentant les pourcentages des usagers 
bifurquant aux carrefours. Il demande égale- 
ment le nombre de passages qu'il doit simu- 
ler ainsi que le nombre de départ pour le 
générateur de nombres aléatoires (sinon, la 
suite de nombres générés serait toujours la 
même). 

Une boucle utilisant ’K' comme compteur 
est parcourue ‘L’ fois (lignes 106 à 252). Sur 
le dessin ci-contre sont indiqués les numéros 
de ligne correspondant à chaque phase. 

Une simulation dépend des valeurs des nom- 
bres utilisés. Ces nombres sont appelés, en 
langage technique, ‘’paramètres’’. De nom- 
breux paramètres sont utilisés dans ce pro- 
gramme. Ainsi, ‘N’, ‘M’, ‘L' et le pondéra- 
teur de nombres aléatoires sont des para- 
mètres. Ils seront donc imprimés cha- 
que fois, en même temps que la durée 
du trajet. Il devient ainsi facile de com- 
parer différents cas et, par exemple, de 
savoir si l'on roule mieux en prenant le 
chemin le plus court mais en rencon- 
trant des feux, ou en bifurquant, ce 
qui rallonge le parcours mais diminue le 
nombre de feux rencontrés. 





L'heuristique ou l'approche 
empirique 

Archimède avait découvert, aux environs de 
240 avant Jésus-Christ, son fameux principe 
d'hydrostatique : tout corps plongé dans un 
liquide est soumis par celui-ci à une force ver- 
ticale, dirigée de bas en haut, équivalente au 
poids du volume de liquide déplacé. Il en fut si 
content qu'il courut tout nu dans la rue en 
criant ’Heureka !”, c'est-à-dire “J'ai trouvé !" 
(ce mot s'est ensuite traduit en français par 
"Euréka"'). De ce verbe grec nous vient le mot 
’heuristique”" désignant la discipline qui se 
propose de dégager les règles de la découverte 
(et non pas d'énoncer des théorèmes). L'intui- 
tion, l'empirisme, en font partie. 

La simulation en est un exemple typique. 
Comme le montre notre application, elle com- 
bine des paramètres contrôlables par l'homme 
avec la construction d'un modèle de référence. 
Si l'on pose ‘M’ et ‘N' égaux à 0, le modèle 
ne comporte plus de carrefour. Si l'on désire 
plus de deux carrefours, le modèle doit être 
reprogrammé. 
























de nombres aléatoires 
Lorsqu'on choisit, pour ‘Q’, une 
valeur de départ égale à 
0.314259621, notre générateur 
fournit les dix premières valeurs 
suivantes (entre O et 99) : 

10 57 56 4 76 37 9 21 64 63 

Si votre version de ce programme 


donne la même suite 

sur votre ordinateur, 
vous pouvez alors cal- 
culer votre premier trajet. 
Pour 'M'= 30, ‘'N’ = 20 et 'L' = 1, 
notre ordinateur a donné une durée 
de 635 secondes. 


Simulation et durée du calcul 
Les modèles de simulation sont assez 
longs à utiliser car les programmes 
sont eux-mêmes longs, et il faut réali- 
ser beaucoup d'essais, en variant les 
valeurs des paramètres, pour obtenir 
un résultat fiable. C'est pourquoi les 
programmes de simulation fonctionnent 
généralement sur de gros ordinateurs. 







Remarques 
Comme beaucoup de programmes de 
simulation, notre programme com- 
porte trois parties. Dans la première 
partie, les paramètres sont définis 
(lignes 10 à 54). Puis les compteurs 
sont remis à 0. La seconde partie du 
programme représente le modèle 
caractéristique des parcours (de la 
ligne 106 à la ligne 250). ‘K' est le 
compteur de boucles, ’L’ le nombre 
total de boucles à effectuer. ‘T' tota- 
lise la durée de chaque parcours et 
est remis à 0 au début de chaque 
boucle. ‘S' totalise les valeurs de ‘T'. 
La troisième partie commence en 270. 
L', ‘M’, 'N’ et ‘X’ sont affichés ainsi 
que la durée moyenne du parcours 
’S/L'. Le sous-programme du généra- 
teur de nombres aléatoires va de la 
ligne 900 à la ligne 906. 

Pourquoi n’avons-nous pas utilisé les 
instructions ‘FOR  NEXT' pour la 
boucle principale (lignes 106, 107, 
252) ? Tout simplement parce que 
certaines petites machines de poche 
les ont refusées, certainement en rai- 
son du grand nombre de ‘"GOTO" et 
de ’GOSUB" utilisés. Pour vous éviter 
tout problème sur votre ordinateur, 
nous avons préféré nous passer de 
ces instructions. 











Le modèle exact 
Vous pouvez vous rapprocher d'un modèle 
exact en constatant que la durée du trajet 
varie d'une façon aléatoire sur les portions 
de routes dépourvues de feux tricolores. 
Pour cela, il vous suffit d'introduire des 
nombres aléatoires supplémentaires dans le 
programme. 


Test 

Les programmes de simulation sont 
difficiles à tester. D'une part, parce 
qu'ils fonctionnent souvent avec un 
générateur de nombres aléatoires, 
d'autre part parce que les calculs 
sont longs et nombreux. Le mieux 
est de faire exécuter le programme 
pas à pas. Testez d'abord le généra- 
teur de nombres aléatoires et notez 
les dix premières valeurs qu'il 
fournit. 

Avec notre générateur, nous obte- 
nons une durée de 635 secondes 
pour un seul parcours ('L' = 1), 
sans bifurquer aux carrefours 

EME: =:0 NE 0 XX 0)" Pour 
‘’X! = 0, ‘M’ = 100, ‘N° = Oet 
‘L' = 1, cette durée passe à 687. 
Enfin, pour ‘X' = 0, 'M' = 0, 

’N' = 100 et 'L’ = 1, nous obte- 
nons 651. 


Le programme 


19 REM SIMULATION DE LA CIRCU 
LATION ROUTIERE 

28 INPUT "CARREFOUR M "3m 

25 PRINT “M=";M 

38 INPUT "CARREFOUR N "3;N 

35 PRINT "N="3;N 

40 INPUT "NOMBRE DE TOURS ";L 

45 PRINT "T=";l 

50 PRINT “TAPEZ UN NOMBRE ENTRE 
ET .3" 

S1 INPUT "";X 

54 Q=0.314159625 +X 

190 5=0 

o 

K+1 

K)L THEN 270 


K= 

106 K= 
1F 
T=0 

130 T=T+100 

132 GOSUB 900 

134 IF Z(=4Q THEN GOTO 140 

136 1=1-40 

138 GOTO 134 

140 T=T+1 

145 GOSUB 900 

147 IF ZCM THEN GOTO 180 

150 T=1+200 

152 GOSUB 900 

154 IF 1(=40 THEN GOTO 160 

156 1=1-40 

158 GOTO 154 

160 T=T+1 

162 T=T+60 

164 GOSUB 900 

166 IF 2€=6@ THEN GOTO 170 

168 1=1-60 

170 T=T+1 

172 GOTO 200 

180 T=T+290 

182 GOSUB 900 

184 IF 2(=B0 THEN GOTO 188 

186 1=1-B0 

188 T=T4+7 

200 T=T+120 

202 G0SUB 900 

204 IF 1(=60 THEN GOTO 208 

206 1=2-60 

208 T=T+2 

210 G0SUB 900 

212 IF ZCN THEN GOTD 230 

214 T=T+100 

216 GOSUB 900 

218 IF 2€=30 THEN GOTO 224 

220 1=1-30 

222 6070 218 

224 T=T+1 

226 6070 250 

230 T=T+125 

232 60T0 250 

250 S=54T 

252 6070 106 

270 PRINT "NOMBRE DE TESTS = "il 

280 PRINT "CARREFOUR M = ";M 

298 PRINT "CARREFOUR N = "3;N 

295 PRINT "NOMBRE ALEATOIRE 
DE DEPART = "3x 

308 U=S/L 

310 PRINT "LA DUREE MOYENNE 
DU TRAJET EST DE "sU 

312 PRINT "FIN DU TEST." 

315 END 

900 IF @)>=.4 TREN GOTO 902 

901 Q=0+.35 

902 Q=Q*xQ:PRINTG;" "; 

903 V=INT(Q+100000) 

904 W=INT(G*1000)*100 

905 Z=V-W:PRINTZ 

906 RETURN 


23 


24 


Peut-on passer des nombres 


au crible ? 


Cette question semble bizarre. Voici 
l'histoire d'un méchant roi qui avait 
jeté la moitié de ses sujets en prison 
et qui avait besoin de l'autre moitié 
pour leur servir de gardiens. 

Avec le temps, il se rendit à l'évi- 
dence : on ne peut régner de cette 
façon ! Il chargea donc le mathéma- 
ticien de la cour d'inventer une 
méthode selon laquelle quelques-uns 
de ses sujets seraient libérés. 

Le mathématicien proposa la 
méthode suivante : 

Chaque prisonnier a une cellule. Ces 
cellules sont numérotées dans l'ordre 
croissant. Le premier gardien ouvre 
toutes les portes. Le second s'inté- 
resse seulement aux portes portant 
un numéro pair (c'est-à-dire à une 


La sélection réalisée électroniquement 

par ordinateur 

Si l’on veut adapter cette histoire sur ordinateur, il 
faut construire un modèle mathématique représen- 
tant la prison et le fonctionnement des portes. Le 
plus simple consiste à faire correspondre à chaque 
porte une variable recevant la valeur 0 si la porte 
est fermée et 1 si la porte est ouverte. En fait, 
nous utiliserons un tableau de nombres, c'est-à- 









Un programme qui passe les 
nombres au crible 

Si nous voulons essayer plusieurs cribles, 
nous diviserons le programme en trois par- 
ties. Tout d'abord, nous déterminerons le 
nombre de valeurs à passer au crible, c'est- 
à-dire la taille du tableau ‘A’. Tous les élé- 
ments de ce tableau sont initialisés à zéro. 
Dans la seconde partie, nous programmons 
le crible lui-même. Si nous désirons par la 
suite changer cette partie et tester d'autres 
algorithmes, seules ces lignes seront à 
modifier. 

La troisième partie est réservée à l'affichage 
des résultats. Cela s'effectue dans une bou- 
cle passant en revue tous les éléments du 
tableau, de 1 à B. Si A(n) est égal à zéro, 
rien ne se passe : si A(n) est égal à 1, ‘n' 
est affiché. 

Le programme calcule beaucoup car il doit 
souvent manipuler le tableau "A. 















ouverte, il la referme ; si elle est fer- 
mée, il la rouvre. Le troisième gar- 
dien s'intéresse à une porte sur trois 
et applique la même règle, toujours 
en commençant au début. Et ainsi 
de suite. Quels seront les numéros 
des portes finalement ouvertes ? 

Si l’on appelle cette méthode 
Passer les 

nombres au cri- 

ble’’, la ques- 

tion devient : 

‘Quels seront 

finalement les 

nombres 

sélectionnés ?”'. 


dire un ensemble de variables ayant la même 
‘’racine’’ : seul l'indice change. Si nous choisissons 
‘A’ comme racine, les éléments du tableau représen- 
tant les portes s'appelleront ‘A(1)', ‘A(2}’, ‘A(3)', 
etc., 1, 2 et 3 étant des indices. Nous créons dans 
la mémoire de l'ordinateur ce tableau après avoir 
tapé au clavier sa taille par l'intermédiaire de l'ins- 
truction ‘INPUT’. Si ce nombre est ‘B’, notre prison 
a donc ‘B’ cellules et ‘B’ gardiens. Nous passons en 
revue ce tableau au moyen d'une boucle "FOR … 
NEXT' et nous changeons les 1 en 0 et les 0 en 1 
selon le crible décrit. Lorsque l'opération est termi- 
née, nous relisons le tableau par une autre boucle 
‘FOR … NEXT'. Si la valeur est 0, la porte est fer- 
mée, nous l'ignorons et nous passons à la suivante. 
Si la valeur est 1, nous imprimons la valeur de 
l'indice : quels nombres vont alors apparaître ? 














































Le crible d'Eratosthène 

Un Grec ancien du nom d’Eratos- 
thène (276-194 avant J.-C.) décou- 
vrit un autre algorithme : toutes les 
portes sont ouvertes par le premier 
prisonnier sortant de sa cellule. Le 
deuxième laisse la sienne ouverte et 
ferme ensuite une porte sur deux. 
Et ainsi de suite : un prisonnier 
dont la porte est ouverte la laisse 
ouverte et ferme toutes les portes 
dont le numéro est un multiple de 
la sienne. On peut deviner ce qui 
arrive alors : seules restent ouvertes 
les portes dont le numéro n'est 
divisible que par 1, et par lui- 

même : ce sont les nombres pre- 
miers, et cet algorithme fut le pre- 


Avec ou sans DIM ? 

Nous avons testé ce programme sur un ordinateur de poche 
SHARP PC 1211. Il possède une imprimante et un BASIC intégré 
standard mais ne reconnaît pas L'INSTRUCTION DIM. On ne peut 
indicer que des variables dont le nom est ‘A’ et tant qu'il reste de 
la place en mémoire. En conséquence, notre tableau représentant 
les portes commence à 11, ce qui nous laisse une dizaine de cases 
libres ((A,0) à (A,10)) pour les autres variables dont notre pro- 
gramme a besoin. Voilà pourquoi nous voyons apparaître la variable 
A(10) à certaines lignes, comme par exemple en 260. Notez que le 
listing ci-contre fonctionne sans aucune modification sur les ordina- 
teurs THOMSON ; pour l'ordinateur SHARP PC 1211, il faut sup- 
primer l'instruction DIM. 

Si votre ordinateur est plus performant que l'ordinateur de poche 
PC 1211 (c'est-à-dire s'il possède une plus grande mémoire vive), 
vous pouvez alors créer des tableaux de taille bien supérieure. Sur 
de nombreux ordinateurs, l'instruction ‘DIM est facultative tant que 
vous ne dépassez pas l'indice 10 ; au-delà, cette instruction est 
nécessaire pour indiquer à l'ordinateur la taille du tableau qu'il doit 
prévoir. Si vous oubliez ‘DIM’, l'ordinateur vous le rappellera en 


mier permettant de les trouver. arrêtant l'exécution du programme et en affichant un message 


d'erreur. 

Test pour le crible d'Eratosthène 

Ce genre de programme s'apparente plus à la 
logique qu'à des calculs. Par conséquent, il est 
nécessaire de bien le tester. Le mieux consiste 
à choisir un tableau de taille raisonnable (10 
par exemple) et d'examiner le programme pas 


à pas. Voici les données du test : 
Numéro 

des cellules 1 2 3 4 5 6 7 8 9 
Nombre 

de passages 









Le programme 


100 DIM A(120@) 

200 REM CRIBLE DES CARRES 

210 PRINT "TAPEZ LE NOMBRE 
D'ELEMENTS" 

228 INPUT "";B 

230 PRINT "LE NOMBRE D'ELE 
MENTS EST ";B 

250 FOR C=1 TO B 

262 A(C+1@)=0 


Le programme pour le 
crible d'Eratosthène 
Jouons d'abord avec le 
crible du méchant roi. Il 
ne présente aucune dliffi- 
culté. Il est ensuite facile 
de passer de ce crible à 
celui d'Eratosthène : il 


















5 


& © 4 Où EN à 0 > 


1 
1 
1 
1 
1 
1 
1 
1 
1 


S00000000-— 
Ccoco000000c- 
2000000000 

S000000--— 
C00000000- 


270 NEXT C suffit d'initialiser à 1 tou- 
dd +) CAUSE tes les cellules au départ, ; 0 
315 E=D*C+10 puis de commencer le On constate que les portes ne changent plus 


crible avec la cellule 
numéro 2. A part cela, le 
programme ne présente 
aucune différence. Leurs 
structures sont relative- 
ment simples. 


d'état dès le quatrième passage. Comme le 
programme comporte beaucoup de calcul, cela 
vaut la peine d'en tenir compte : on peut arrê- 
ter le programme au nombre de passage sui- 
vant la valeur de la racine carrée du nombre 
total de cellules. Ici, le nombre total est 10, la 
racine est 3, on peut donc s'arrêter à 4. 


320 IF A(E)=@ THEN 
A(E)=1:GO0T0 340 

330 A(E)=0 

340 D=D+1 

350 IF ((D#C-1)>B) THEN 570 

368 GOTO 315 

370 NEXT C 

600 FOR C=1 TO B 

610 IF A(C+1@)=0 THEN 630 


620 PRINT C Le secret du roi 

630 NEXT . | Le crible du méchant roi détermine tous 
hs Due FIN les carrés parfaits entre 1 et la dernière 

cellule du tableau. Entre 1 et 10, nous 

188 DIM A(200) devons donc obte- 

200 REM CRIBLE DES NOMBRES nir 4 et 9. Quels 

210 A AE LE NOMBRE | 

DE EMENTEs entre 1 et 100 ? 


pour les ordinateurs plus 
puissants 

Nous avons sciemment réduit 
ce programme à sa plus simple 
expression, car nous voulions 
qu'il fonctionne sur une petite 
calculatrice de poche utilisant le 
BASIC (cela est d'ailleurs vrai 


Votre calculatrice 
peut-elle deviner si 
121 est un carré ? 


220 INPUT "";B 

230 PRINT "LE NOMBRE D'ELE 
MENTS EST ";B 

250 FOR C=i TO B 

268 A(C+1@)=1 

270 NEXT C 

300 FOR C=2 TO B 

310 IF A(C+1@)=Q THEN 370 





315 E=D*C+10 

320 D=2 pour tous les programmes con- 

330 A(C*D+10)=0 tenus dans ce livre) ; les per- 

340 D=D+1 sonnes possédant un plus gros tions suivantes : ” ’X' est-il un nombre pre- 


350 IF ((DxC-1)>B) THEN 570 
360 GOTO 330 

378 NEXT C 

608 FOR C=1 TO B 

610 IF A(C+10)=0 THEN 650 
620 PRINT C 

638 NEXT C 25 
648 PRINT "FIN" 

658 END 


ordinateur ont de la chance ! 
Elles pourront chercher à tra- 
vailler sur des valeurs plus 
grandes et répondre aux ques- 


mier ?’’, ou ‘’Quel est le prochain nombre pre- 
mier après ‘Y’ ?'’, ou ‘’Combien de nombres 
premiers puis-je trouver avec ma calcula- 

trice ?””, etc. 


»F 


Le carré 


G 





Un carré magique se compose de 
nombres disposés d’une façon parti- 
culière dans les cases d’un carré. 
Que l'on additionne ces nombres en 
ligne, en colonne ou en diagonale, le 
résultat est toujours le même. 
Reportez-vous à l'exemple ci-contre : 
les colonnes, les lignes et les diago- 
nales nous donnent toutes le même 
résultat : 15. Un ordinateur peut-il 
créer un carré magique ? À première 
vue, beaucoup répondront ‘non’. Et 
pourtant, c'est très facile sur des 
carrés comportant un nombre impair 
de cases, comme par exemple 9, 25 
ou 3969. L'auteur des règles permet- 
tant de composer des carrés magi- 
ques reste inconnu. On peut toute- 


Règles de Riese pour la construction d'un carré 

magique 

A. La construction commence à l'élément situé sous la 
case occupant le centre du carré (c'est toujours possi- 
ble puisque nous nous intéressons aux carrés compor- 
tant un nombre impair de cases). Nous y plaçons le 
chiffre 1. 

B. Le chiffre suivant se place à la case située en-dessous, 
à droite de la précédente, si cette case n'est pas déjà 
occupée. C'est la règle dite ‘’sud-est”. 

C. Si cela vous conduit à sortir du carré vers le bas, vous 
êtes dans la bonne colonne mais pas dans la bonne 
ligne : occupez la case placée dans cette colonne, tout 
en haut du carré. ” 

D. Si cela vous conduit à sortir du carré vers la droite, 
vous êtes sur la bonne ligne, mais pas dans la bonne 
colonne : occupez la case placée dans cette ligne, dans 
la première colonne du carré. 

E. Si la case où vous arrivez est déjà occupée, décalez- 
vous d'une case à gauche, vers. le bas, et appliquez 
éventuellement les règles CPE 
précédentes. û 





magique : 


fois retrouver ces principes dans un 
des livres écrits par un maître en cal- 
cul : Adam RIESE (1492-1559). 
RIESE a précisé les règles permettant 
de construire un carré magique de 
rang impair et ces règles sont facile- 
ment programmables sur ordinateur. 


4 9 


3 5 


8 


F. Si, en suivant la règle ‘B’, vous êtes amené à sortir du 
carré suivant une diagonale, placez-vous dans la der- 
nière colonne du carré, sur la deuxième ligne en partant 
du haut. 

Ces règles restent toujours valables. 


Le carré et l'ordinateur 

Pour pouvoir construire et mémoriser un carré magji- 
que de cinq cases de côté, il est nécessaire d'avoir 
25 cases en mémoire. Le plus simple est d'utiliser 
un tableau possédant 25 cases. Si nous appelons 
"A ce: tableau, A(17) représente le dix-septième 
nombre. Si 'N’ = 3, A(N) désigne la troisième case, 


donc le troisième nombre du tableau. Le programme 
vérifie si la taille du carré n’est pas trop grande et si 
le nombre total de cases est un carré parfait. Puis il 
initialise toutes les cases à zéro et applique les six 
règles. Cela donne une très grande boucle ‘FOR … 
NEXT' de 1 à E*E. 





1. 
LES 





Renseignements complémentaires sur le 
programme 

Au début du programme, à la ligne 250, 
l'ordinateur vérifie que la longueur du côté est 
inférieure à 10 et impaire (ligne 225). Entre les 
lignes 300 et 325, le tableau est rempli de 
zéros. L'adresse ’G’ de chaque case sera 
déterminée par un compteur pour les lignes 
(‘1’) et un autre pour les colonnes (’C’) (ligne 
310). Ainsi, les lignes se rempliront les unes 
après les autres. A(1) est l'élément en haut à 
gauche dans le carré ; A(E*E), l'élément en 
bas à droite. Les lignes 330 à 530 remplissent 
le carré. D'après la règle ‘A’, on commence 
par l'élément sous le centre. Ce sont les 
lignes 330-331. Une boucle ‘FOR … NEXT” 
fonctionne avec un compteur ‘F’ (lignes 
350-530). 

Les cinq règles de ‘B’ à ‘F’ sont appliquées 
aux lignes suivantes : 


Règle B : lignes 415 à 440. Règle C : ligne 
450. Règle D : ligne 
490. Règle E : lignes 


510 à 515. Règle F : 
lignes 460 à 470. Le 
carré sera affiché par 
les lignes 600 à 680. 


Le programme 


100 DIM A(100) 

200 REM CARRES MAGIQUES 

210 PRINT "DONNEZ LE NOMBRE (INFE 
RIEUR A 10) DE" 

211 PRINT "CASES PAR COTE :" 

215 INPUT "";E 

220 IF EC1@ THEN 235 

225 PRINT "NOMBRE TROF GRAND '* 

230 GOTO 210 

235 I=E-INT(E/2) #2 

240 IF I1<)@ THEN 300 


245 PRINT "LE NOMBRE EST FAIR !* 
254 END 

300 FOR I=1 TO E 

305 FOR C=1 TO E 

310 G=((I-1)#E)+C+10@ 

315 A(G)=0 

320 NEXT C 

325 NEXT I! 


330 I=INT(E/2)1+2 

331 C=INT(E/2)+#1 

350 FOR F=1 TO (E+*E) 

355 G=((1-1)+E)+C+10 

360 IF 1)E THEN 450 

400 IF C)E THEN 490 

410 IF A(G)<>0 THEN 510 

415 A(G)=F:PRINTF,6G 

420 I=1+1 

430 C=C+1 

440 GOTO 530 

450 IF C(=E THEN I=1:60T0 355 

460 C=E 

470 1=2 

480 GOTO 355 

490 IF IX=E THEN C=1:G0T0 355 

510 1=1+1 

515 C=C-1 

520 GOTO 355 

530 NEXT F 

600 FOR I=1 TO € 

618 FOR C=1 TO € 

620 G=((1-1)#E+C+10) 

630 PRINT "LIGNE"3;1;" ";"COLONNE"; 
C3" ";"VALEUR";A(G) 

64û NEXT C 

65@ PRINT " " 

b6@ NEXT I 

67@ PRINT "FIN." 

68@ END 











Si vous avez une calculatrice de poche 
Notre programme a été conçu pour pouvoir fonctionner sur une calculatrice de poche 
capable de stocker un peu plus de 1 400 pas de BASIC. Les pas inutilisés servent à la 
mémorisation des variables. Une variable utilise, sur les petites machines de poche, huit 
pas de programmes. On peut donc utiliser autant de variables qu'on le souhaite, dans la 
limite de ce que nous laisse comme place disponible le programme. Comme nous avons 
besoin de variables dans notre programme, nous utiliserons les noms 'A' 
fois, le fonctionnement d'une calculatrice est tel qu'il y aurait confusion entre les varia- 
bles ‘C', ‘E', etc., et les cases du tableau A(3), A(5), etc. Pour cela, les indices du 
tableau commencent à A(11). En conséquence, nous utilisons de temps à autre la 
valeur 10 (lignes marquées d'une étoile dans le programme) pour bien positionner les 
indices à partir de 11 et non pas de 1. 

Notre minuscule calculatrice de poche possède encore environ 1 000 pas de mémoire 
libre, ce qui est suffisant pour un carré de 9 cases de côté, comportant 81 nombres. 


Que peut-on faire d'autre ? Ars 
Le programme d'impression (lignes 600 à 680) présente l'avantage d de 
pouvoir imprimer un carré quelle que soit la valeur de 'E’. Bien sûr, 
pour les gros carrés, on peut avoir à mettre en forme le carré. On 
pourrait également l'imprimer directement, ligne par ligne, au lieu de 
colonne par colonne. Cette modification est simple à réaliser. 
On peut intervertir lignes et colonnes. On obtient ainsi un carré magji- 
que symétrique de l'original. 
Un carré tient sur un seul écran jusqu’à environ 15 cases de côté. Si 
votre ordinateur a des possibilités graphiques, vous pouvez dessiner le 
carré avec toutes ses cases. Les lignes suivantes calculent la valeur 
magique du carré (c'est-à-dire sa somme caractéristique) : 
655 
666 PRINT ‘’LE NOMBRE MAGIQUE EST'';H 


DIM et les matrices 
Un carré de nombres s'appelle ‘’matrice”’. C'est un tableau à 
deux dimensions. Les langages BASIC, dans leur grande 
majorité, sont capables de traiter les tableaux à deux dimen- 
sions. Pour cela, on doit réserver la place en mémoire par 
l'instruction ‘DIM’ : par exemple, pour la matrice ‘A’, on 
écrira au début du programme : 

DIM A(5,8) 
ce qui détermine une matrice rectangulaire de 5*8 cases, 
soit 40 cases. Si l'on considère que le premier chiffre repré- 
sente le nombre de lignes, le second chiffre le nombre de 
colonnes, et si l’on appelle respectivement ces nombres "M 
et ‘N’, on peut écrire : 

M = 5N = 8 DIM A(M,N) 
Si l’on veut utiliser l'élément placé dans la troisième ligne, 
cinquième colonne, on écrira A(3,5). 


Test des carrés d'Adam Riese 
Là encore, ce programme fait plus appel à la logique qu'au 
calcul. Il faut donc le tester soigneusement. Pour cela, choi- 
sissez un carré de 5 de côté. Vous devez obtenir le carré 
suivant : 

11 24 7 20 3 

4 12 25 8 16 

17 5 13 21 9 

10 18 1 14 22 

23 6 19 2 15 
Si vous obtenez ce résultat, votre programme fonctionne 
correctement. 


















à ‘K'. Toute- 





H =(E*E*E+E)/2 
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Jeu de la vie 


Voici un problème de biologie : la vie 
et la mort d’une espèce, et son évo- 


donnée est donc : 
T = S*N = (0.1 + B*N)*N 


lution. Prenons par exemple N° ani- 
maux vivant à une période donnée. 
Leur taux de natalité est de 25 %. 
En conséquence, G = 0.25*N ani- 
maux viendront au monde à chaque 
période. La mort est plus complexe à 
formuler. En effet, les animaux se 


A la fin de l’année, le nombre total 

des animaux s'élève à : 
M=N+G-T 

La définition des ‘périodes’ varie 

selon les animaux. Cela peut corres- 

pondre à une année ou à une heure 

(cas des bactéries). 


gênent mutuellement car la nourri- 
ture qui est à leur disposition est 
limitée ; ils peuvent être touchés par 
des maladies contagieuses et s'entre- 
dévorent. Le pourcentage des ani- 
maux qui meurent se calcule en par- 
tant du nombre total des animaux 
vivants auquel on applique un fac- 


teur de mortalité ‘B’ : 
S = 0.1 + B*N 


Le total des morts à une période 




























Le modèle animal 
notre modèle tient compte du nombre 
total d'animaux au début de la première 
période, du facteur de handicap ‘B' et du 
nombre total de périodes sur lesquelles 
sont effectués les calculs. À partir de 
cela, le programme calcule le nombre 'M' 
des animaux à la fin de la première 
période et repart de cette valeur ‘M’ pour 
la prochaine période, une fois que le 
numéro de la période et le nombre d'ani- 
maux sont imprimés. Dans le cas où "M 
ne change pas d'une période à l’autre, on 
dit que la population de cette espèce est 
constante. Le programme s'arrête alors de 
lui-même. Si le nombre d'animaux des- 
cend en dessous de zéro, le programme 
annonce ‘’espèce éteinte”. Le programme 
est relativement simple, mais il n'est pas 
facile de déterminer B. Lorsque l'ordina- 
teur n'existait pas, il était particulièrement 
compliqué de trouver un résultat correct 
avec de telles formules, car tout le travail 
de calcul se faisait à la main. Grâce à 
l'ordinateur, les approximations chiffrées 
sont devenues, dans le domaine des 
sciences naturelles, une pratique très 
banale. 





Le programme du jeu de la vie 
Le programme est relativement simple. Il lui est toutefois néces- 
saire de connaître les valeurs que vous choisissez pour N et B, 
Sinon il ne pourrait mener à bien ses calculs. B et N ont une 
grande importance. Ils sont essentiels pour le fonctionnement du 
programme, car ils déterminent l'évolution de l'espèce. Le taux 
de mortalité se calcule grâce à la formule suivante : 

S= 0.1 + B*N 
Si l'on veut que l'espèce se maintienne, il faut impérativement 
que S soit inférieur à 1, sinon il mourrait plus d'animaux qu'ly 
en a au total. Or, pour cela, il faut que B*N soit inférieur à 0:97; 
D'autre part, il faut aussi qu'il ne meure pas plus d'animaux qu'il 
n'en naît. Si, maintenant, on écrit B*N = 0.15, la natalité équili- 
bre la mortalité. On ne peut obtenir cet état de fait que dans la 
mesure où B et N restent constants. C'est là que réside le pro- 
blème. Pour 1 000 animaux, B doit se situer aux alentours de 
0,0001. Pour 100 animaux, B doit avoisiner 0,001, et 0,01 pour 
10 animaux. Si B est petit pour 
beaucoup d'animaux, cela signi- 
fie une croissance rapide. 






























Population stable 

Une suite numérique telle que 
la calcule le programme peut 
évoluer de manières très diffé- 
rentes. Dans notre cas, les 
nombres peuvent augmenter. 
L'espèce se développe donc, 
mais le taux de mortalité 
s'élève également. Les valeurs 
des nombres peuvent baisser, 
ce qui entraîne simultanément 
une baisse de la mortalité. Par 
la suite, les chiffres pourraient 
éventuellement remonter. 
Enfin, la suite numérique peut 
se stabiliser ou osciller très 
légèrement autour d'une 
valeur. Dans ce cas, l'espèce 
se stabilise et le programme 
s'interrompt lorsque le même 
résultat est obtenu sur deux 
périodes consécutives. Le 
programme s'arrête également 
lorsqu'il n'y a plus d'animaux. 




















Autres utilisations du modèle 


Il est bien sûr possible de modifier le taux de natalité 
et de mortalité de notre programme. Au départ, il 
est de 0,25. Il est simple de modifier le taux de 
natalité sans changer le nombre d'animaux et 
d'essayer de comprendre comment le modèle réagit 
devant d'autres chiffres. Pour l'amateur éclairé, il est 
particulièrement intéressant de représenter graphique- 
ment les nombres d'animaux obtenus en fonction de 
ces modifications. Pour cela, il est cependant néces- 
saire de disposer d'un ordinateur plus important 
qu'une simple calculatrice de poche. Voici un exem- 
ple : dix animaux avec un taux de mortalité de 
0,00105 se multiplient en 45 étapes environ pour 
atteindre le nombre stable de 136. On peut égale- 
ment dire qu'il existe dix millions de bactéries qui 
grandissent en des millions d'étapes et qui, en 45 
heures, atteignent le nombre total de 136 millions. 


REM EVOLUTION D'UNE ESPECE 
INPUT "NOMBRRE TOTAL D'ANI 
MAUX "3; N 

PRINT "LE NOMBRE TOTAL D'A 
NIMAUX EST : ";N 

INPUT "TAUX DE HANDICAP “;B 
PRINT "LE TAUX DE HANDICAP 
EST :":B 

INPUT "NOMBRE DE PERIODES "; 
PRINT "LE NOMBRE DE PERIO 
DES EST "3P 

M=N 
































FOR K=1 TO P 

N=M 

6G=.254N 

S=,1+B4N è 
T=S4#N ra 
M=INT(N+G-T) # 


IF M>@ THEN 170 

PRINT "ESPECE ETEINTE 
APRES ";K;" PERIODES.":K=P 
GOTO 190 
PRINT K;" ";M 



























AC ri 


Remarque 

On peut retrouver 
l'exposé de ce problème, 
ainsi que celui des 
renards et des lapins, 
dans des livres destinés à 
l'enseignement en scien- 
ces naturelles et en bio- 
logie pour les classes 
supérieures des lycées. 








so à 


IF NC>M THEN 190 
185 PRINT "ESPECE STABLE 


APRES ";K; "PERIODES." 
188 K=P 

190 NEXT K 

200 PRINT "FIN." 

210 END 


Test 
Le mieux est de fournir au programme 
un exemple à calculer après que l'on a 
tapé et vérifié chaque ligne. Voici des 
données qui conduisent rapidement à 
une situation stable : 
Nombre total d'animaux : 130 
Taux de mortalité : 0.00105 
Total des périodes : 25 
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Le nombre d'animaux se stabilise en 
sept périodes. 


Le mathématicien manipule souvent 
des suites infinies de nombres ainsi 
que leurs sommes. Voici un exem- 
ple : 1, 1/2, 1/4, 1/8, 1/16... consti- 
tuent une suite dont chaque terme 
est déduit du précédent par une divi- 
sion de moitié. Qui aurait suffisam- 
ment de temps pour calculer la 
somme de ces termes : 


Cinq fois l'infini : 
suites et séries 


bre de termes ajoutés ensuite. On dit 
que cette somme converge. || existe 
des sommes telles que le nième élé- 
ment tend vers 0 mais influe encore 
sur le résultat : la somme elle-même 
évoluera sans cesse ; on dit que la 
somme diverge ; aussi loin que l'on 
pousse le calcul, le résultat ne se 
stabilisera pas. 


S = 1 + 1/2 + 1/4 + 1/8 + 
1/16... ? 

La tâche n'est pas compliquée mais 
répétitive. On peut toutefois remar- 
quer que la valeur du nième élément 
de cette somme tend vers 0 lorsque 
n devient grand. En conséquence, 
après avoir sommé un certain nom- 
bre d'éléments, S ne variera prati- 
quement plus quel que soit le nom- 





La suite géométrique 

La somme S = 1 + 1/2 + 1/4 + 1/8 + 1/16 + … converge assez 
rapidement. Elle s'appelle géométrique car on peut passer d'un terme 
de la suite au terme suivant par un coefficient multiplicateur. 

Le programme GE01 calcule ‘S1’ pour ‘N' termes, ‘N' étant donné par 
l'utilisateur. Une boucle ‘FOR … NEXT' est utilisée pour cela, le 
compteur de boucle variant de 1 à ‘N'. Cette suite correspond à un 
problème bien connu : Un garde forestier rentre chez lui : son chien 
court deux fois plus vite. Arrivé à la maison, le chien repart à la ren- 
contre de son maître, puis, arrivé vers son maître, il repart vers la mai- 
son, et ainsi de suite. Finalement, lorsque le garde forestier arrive chez 
lui, quelle distance le chien a-t-il parcourue ? 

Réponse : La distance parcourue par le garde multipliée par deux. La 
résolution de ce problème passe par l'utilisation de la suite ‘S1’ dont 
la somme vaut 2. 
















Différentes séries 
Il existe un très grand nombre de suites infinies, 
réparties grossièrement en trois catégories : les sui- 
tes divergentes (dont on ne pourra jamais calculer 
la somme), les suites à convergence rapide (il suffit 
de calculer peu d'éléments pour obtenir la somme 
avec une bonne précision) et les suites à conver- 
gence lente (il faut calculer des centaines, voire des 
milliers de termes pour obtenir un résultat fiable). 
La théorie des séries est ardue mais passionnante. 
Nous nous intéresserons ici à cinq séries particuliè- 
res que nous demanderons à l'ordinateur de calcu- 
ler. Ce travail reste également à la portée d'une cal- 
culatrice de poche fonctionnant en BASIC. 









Dénomination des cinq programmes 
GE01 (lancée par l'instruction ‘RUN 5) : 
série géométrique comprenant ’N' termes. 
GEO02 (lancée par l'instruction "RUN 105) : 
série géométrique calculée avec une limite 
sur la précision. 

GE03 (lancée par l'instruction "RUN 205) : 
série harmonique divergente. 

GEO04 (lancée par l'instruction "RUN 305) : 
série harmonique alternée. 

GE05 (lancée par l'instruction ‘RUN 405’) : 
calcul du nombre Pi. 





GE02 traite la même série ; cette fois, l'utilisateur ne donne pas le 
nombre ‘NN’ d'éléments composant la somme, mais la précision ‘E”. 
Dès que la valeur d'un élément deviendra inférieure à 'E', le pro- 
gramme s'arrêtera. 


La série harmonique 
Le programme GE03 traite la série 


REM GE02 
INPUT "LIMITE DE PRECISION ";E 


Voici les dix premières valeurs 
que vous devez obtenir pour le 


re PT M "LA LIMITE EST ";E programme GEO1 (en tapant 
1/5 + … ep NONeRE ose ? 10 
Le calcul s'effectue sur ’N' élé- 6=6+,5 2 1 
ments. Cette série est divergente : 5=5+6 : . 
à chaque nouvel élément, le résul- IF G<=E THEN GOTO 165 5 1875 
tat évolue. Le programme affiche N=N+1 6 1.9375 
le résultat après chaque calcul. Si PRINT Nÿ" "55 7 1.96875 
vous ne le souhaitez pas, suppri- 6oTa 155 x. L 12288 
. L PRINT "FIN, 9 1.99219 
mez la ligne 235 et réécrivez-la en END 10 1.99609 
ligne 242. Seul le résultat final PR Si l’on choisit la limite ‘E = 


apparaîtra, lorsque ‘’N’ calculs 
auront été effectués. 


INPUT "NOMBRE D'ELEMENTS "3;N 
s=0 


0.00001’, on obtient pour GE02 
(en tapant ‘RUN 105’) : 


FOR K=1 TO N LIMITE DE PRECISION ? .00001 
S=S+1/K LA LIMITE EST 0.00001 
PRINT Kj" "35 = LE 

Série convergente vers Pi a 4 1.875 

; RUE PRINT "FIN." 
Lorsque l’on connaît la limite vers END 5 1.9375 
laquelle tend la somme des éléments $ VAE 
; PL RENE 04 7 1.98438 

d'une série, l’utilisation même des élé- : : É 8 1.99219 

ments et le calcul de la somme permet- ph NOMBRE D 'ELENENTS SN 9 1.99609 

tent de déterminer cette limite avec pat 5 res 

plus de précision. Prenons un exem- F=-1 Lu 199951 

ple : on démontre que l'expression FOR K=1 TO N 13 1.99976 

4*(1-1/3+1/5-1/7+1/9—1/11 ...) M=M#F 14 1.99988 

converge vers Pi. Pi est donc la limite 8=5+(M/K) e ras 

d PRINT K;" "35 16 1.99997 

e cette somme et le calcul de cette NEXT K 17 1.99998 

somme avec un grand nombre d'élé- PRINT "FIN." Voici les dix premières valeurs 

ments nous permet de calculer Pi, avec END obtenues par le calcul de la suite 

autant de décimales qu'on le veut. REM GEO 5 harmonique divergente (en 


Malheureusement, cette somme con- 
verge lentement. Il existe d'autres algo- 





INPUT "NOMBRE D'ELEMENTS "3;N 
1=0 


tapant "RUN 205’) : 
NOMBRE D'ELEMENTS ? 10 





rithmes nettement plus complexes mais s=0 1 1 
convergeant plus rapidement. M=-1 2 1.5 
F=-1 3 1.83333 
FOR K=1 TO 24N STEP 2 4 2.08333 
I=1+1 5 2.28333 
IF I(=1000 THEN GOTO 465 : SE 
D ogremmes 455, PRINT. ((K-1)/2);" "3P ns 2 71786 
5 REM GEO! ere 9 2.82897 
n . n, 10 2.92897 
À cl pes AU dIEA 2. hide Les valeurs suivantes sont four- 
475 S=5+6 à L L 
25 Gel ss nies par la série harmonique con- 
30 FOR K=2 TO N sr eh ' , 
en nec 485 NEXT K vergente (en tapant "RUN 305’) : 
Rs 49@ PRINT "PI = "3P NOMBRE D'ELEMENTS ? 10 
Et 495 END ] à 
30 NEXT K Test 3 833333 
4 te Fi Comme les calculs sont ici nom- “ pe 
breux, il est important de vérifier 6 616667 
le bon fonctionnement du 7 .759524 
programme. " Fe 
10 645635 


Enfin, le programme débutant en 
405 converge très faiblement ; il 
donne les résultats suivants : 
Pour '’N’ calculs valeur de Pi 

N = 1000 3,14059 

N = 2000 3,14109 (Pi = 3,14159...) 
Pour tous ces résultats, il est 
possible, notamment pour Pi, 
que les derniers chiffres affichés 
par votre ordinateur soient diffé- 
rents de ceux-ci en raison de la 
précision différente d'une 
machine à l'autre. 


Série harmonique alternée 

Le programme GE04 commence à la ligne 305. Il calcule la somme "S3' : 
S3 = 1 — 1/2 + 1/3 — 1/4 + 1/5 — 1/6 … 

Le mot ‘’alternée”’ signifie que le signe change à chaque élément. Les 

éléments diminuent en absolu, mais si lentement que la série diverge. 

Toutefois, cette série alternée diverge plus lentement que la série harmo- 


nique vue précédemment. Vous pourrez le constater en laissant l'ordina- 
teur calculer autant de fois que vous le désirez. 

Dans ce programme, le problème consiste à changer le signe à chaque 
élément. Pour cela, ‘M’ et ‘F’ sont initialisés à  — 1’. À chaque étape, 
’M' est multiplié par ‘F’, donc ‘M’ change de signe à chaque fois. 
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L'ordinateur écrivain : 
est-ce possible ? 


Il est difficile de déterminer si un 
ordinateur est capable ou non 
d'écrire des phrases tant qu'on ne 
sait pas comment fonctionne l'écri- 
ture automatique. Pourtant, il est 
facile de laisser l'ordinateur babiller 
tout seul, ce qui est très amusant 
car on ne peut pratiquement pas 
deviner ce qu'il va nous dire. 

Déjà, dans les années cinquante, on 
savait faire raconter des histoires à 
un ordinateur. Le principe est sim- 


En faisant fonctionner le programme, 
vous constaterez que les histoires 
qu'il fournit ont par instant une con- 
notation très moderne. En voici quel- 
ques exemples : 

TOUT HOMME EST FIDELE 

TOUTE FEMME EST FERTILE 
L'EAU EST INCOLORE 

LE TERRE EST AVARE 

Mis à part le mot ‘’est'’, tous les 
mots sont tirés au hasard. Toutefois, 
l'accord du genre est respecté. 


ple : on fournit à la machine un 
exemple de phrase grammaticale- 
ment correcte et on lui demande de 
choisir au hasard un sujet parmi un 
ensemble de sujets pré-enregistrés, 
un verbe parmi un ensemble de ver- 
bes, etc. 





car il doit stocker des données alphabétiques. Le 
premier mot sera placé dans la case A$(20). Le 
tableau se termine à A$(59) et contient tout le voca- 
bulaire utilisé. Entre les lignes 100 et 145, le tableau 
est initialisé. Puis vient une large boucle, s'exécutant 
‘P' fois et débutant à la ligne 400. Cette boucle 
fabriquera quatre nombres aléatoires qui seront 
ensuite transformés en indices compris entre 20 et 
59. À chacun de ces nombres aléatoires correspon- 
dra donc finalement un élément du tableau AS$(N) et 
les quatre mots ainsi trouvés constitueront la 
phrase. L'article adéquat se trouve à chaque fois 
placé en mémoire juste avant le nom correspondant. 
En testant l'article lui-même pour retrouver son 
genre, on peut déterminer l'adresse correcte de cer- 
tains mots comme ‘tout’, ‘aucun’, ‘mon’ ou ‘notre’. 
La ligne ainsi constituée est imprimée. 
Un générateur de nombres aléatoires est inclus dans 
le programme à partir de la ligne 900. Il est inutile si 
votre ordinateur reconnaît la fonction RND. Dans ce 
cas, ajoutez la ligne : 

80 J = RND(0) 
Un nombre aléatoire supérieur à 0 et inférieur à 1 
est immédiatement placé dans la Variable J. Le 
nombre de chiffres après la virgule dépend dela 
précision du langage BASIC utilisé. Ajoutez au 
début du programme : 

15 RANDOMIZE 
pour initialiser le générateur différemment à chaque 
exécution. Si votre ordinateur ne connaît pas ces 
instructions, ne modifiez pas le programme. 












Construction de la phrase 
Etudions la construction d'une phrase en pre- 
nant l'exemple : 

TOUT HOMME EST FIDÈLE. 

Le programme accepte huit sujets, comme 
‘homme’, ‘femme’, ‘jardin’ et ‘eau’, huit 
adjectifs : ‘fidèle’, ‘multicolore’, ‘fertile’. Le 
programme relie ces mots par le verbe ‘est’. 
Enfin, avant chaque sujet, un autre adjectif 
ou un article est ajouté. 





A quoi ressemble le programme ? 

Pour initialiser le générateur de nombres tirés au 
hasard (voir pages 22, 23), le programme a 
besoin d'un nombre ‘H’ compris entre ‘0’ et ‘0.3’ 
donné par l'utilisateur. Le programme doit égale- 
ment savoir le nombre de lignes que doit com- 
porter le texte. Ceci constitue la première partie 
du programme. 

Pour la mise en mémoire de notre lexique, nous 
utiliserons un tableau qui portera le nom ’A$' 












Le programme 
La grammaire de l'ordinateur 

La grammaire que possède votre ordinateur est d'une grande simpli- 
cité. Si vous souhaitez produire des phrases plus sophistiquées, vous 
rencontrerez de nombreuses difficultés, car la grammaire et la syntaxe 
du français ne sont pas simples à respecter. Vous en déduirez qu'il 
faut encore beaucoup de réflexions et d'études avant que l'ordinateur 
sache vraiment écrire. Par ailleurs, cela demande des machines plus 
puissantes qu'une simple calculatrice. 


18 REM HISTOIRE 

20 INPUT "TAPEZ UN NOMBRE ENTRE Q@ 
ET 0.3 ";H 

40 G=H+0.314159625 

5Q INPUT "COMBIEN DE LIGNES ";P 

70 DIM A$(6@) 


108 A$(2@)="L'" 

101 4#(21)="HOMME" 
102 A$(22)="LA" 

103 A$(23)="FEMME" 
104 A$(24)="L'" 

195 A$(25)="ENFANT" 
186 A$(26)="LA" 

107 A$(27)="MAISON" 
108 A$(28)="LE" 

109 A$(29)="JARDIN" 
110 A$(3@)="LA" 

111 A$(31)="FLEUR" 
112 A$(32)="L'" 

113 A$(33)="EAU" 

114 A$(34)="LA" 

115 A$(35)="TERRE" 
120 A$(36)="INSIPIDE" 
121 A$(37)="AVARE" 
122 A$(38)="FERTILE" 
123 A$(39)="PROSPERE" 
124 A$(48)="PROCHE" 
125 A$(41)="[INCOLORE" 
126 A$(42)="MULTICOLORE" 
127 A$(43)="FIDELE" 
130 A$(44)="CHAQUE" 
131 A$(45)="CHAQUE" 
132 A$(46)="CHAQUE" 
133 A$(47)="TOUT" 

134 A$(4B8)="TOUTE" 
135 A$(49)="TOUT" 

136 A$(50)="MON" 

137 A$(51)="MA" 

138 A$(52)="MON" 

139 A$(53)="NOTRE" 
140 A$(54)="NOTRE" 
141 A$(55)="NOTRE" 
142 A$(56)="ET" 

143 A$(57)="OU" 

144 A$(58)="MAIS" 

145 A$(59)="," 


















Commentaires 
La structure du programme est assez simple. Seul le calcul des adres- 
ses dans le tableau ’A$’ est un peu plus compliqué. 

Le programme se divise en quatre grandes parties : 

Le générateur de nombres aléatoires est mis en place de la ligne 
10 à la ligne 60. On devra fournir le nombre total 'P' de lignes à 
écrire. 

2. Entre les lignes 100 et 145, le vocabulaire est chargé dans les 
tableaux AS. 

3. Entre les lignes 400 et 610, les nombres aléatoires sont transformés 
en indices servant à trouver les mots dans ‘A$'. Puis ces mots 
seront imprimés dans l’ordre voulu (ligne 585). 

4. Entre les lignes 900 et 906, nous trouvons un sous-programme 

comportant le générateur de nombres aléatoires appelé par l'ins- 

truction 'GOSUB. 

















Test 
Le test n’est pas simple à réaliser. Les nombres aléatoires utilisés doi- 
vent être compris dans des fourchettes étroites : entre 0 et 7 par 
exemple pour les sujets, parfois même entre 0 et 3. 

Le programme d'écriture cherche un chiffre aléatoire par l'intermé- 
diaire de l'instruction 'GOSUB". L'instruction ‘IF vérifie la validité du 
résultat. Si le chiffre ne correspond pas à ce qu'on attend, un autre 
chiffre est demandé. Pour simplifier les tests, le mieux est de faire 
afficher par une instruction ‘PRINT les trente premiers nombres aléa- 
toires produits par le générateur, et de lancer le programme avec le 
générateur initialisé toujours de la même manière (variable ‘H'}). Con- 
naissant les trente premières valeurs que le programme utilisera, vous 
pouvez ainsi vérifier son bon fonctionnement en retrouvant les mots 
qu'il doit logiquement employer. : 


400 FOR K=1 TO P 

410 GOSUE 900 

415 IF J>7 THEN GOTO 410 

420 B=J#2+20 

430 GOSUB 900 

435 IF J>7 THEN GOTO 430 

440 C=J+56 

450 GOSUB 900 

468 IF J>3 THEN GOTO 450 

490 IF J=0 THEN D=B:GOTO 510 
508 D=J#3+41 

510 GOSUB 900 

520 IF J>3 THEN GOTO 510 

550 E=J+56 

5995 IF D=B THEN GOTO 580 

$S60 IF A$(B)="LA" THEN D=D+1:GOT0 





Comment aller plus loin ? 
Nous avons déjà dit quelques mots sur la possibilité d'améliorer le 
programme en lui faisant reconnaître d’autres règles de grammaire. 
Si votre ordinateur est suffisamment puissant, vous pourrez égale- 
ment programmer d'autres types de 
phrases. Vous pouvez, à l’aide du 
générateur de nombres aléatoires, 
allonger les phrases en ajoutant égale- 
ment d’autres mots. Vous pouvez 
aussi changer les mots pour en utiliser 





570 oi THEN D=D+2:60 de plus poétiques. Vous serez étonné 
580 Te de constater combien le changement 
=B+ de mots influe sur le résultat : la dif- 
580 B=B+1 


585 PRINT A$(D);" ";A$(B);" EST " 
3A$(C);" ";AS(E) 

590 NEXT K 

610 END 


férence est grande entre un roman policier et un conte de fée. 
Enfin, vous pouvez augmenter le vocabulaire mémorisé par votre 
machine. 


900 IF Q=.4 THEN GOTO 902 
901 Q=0+.35 

902 Q=0+0 

903 R=INT(O+100000) 

904 S=INT(Q*10000) #10 

905 J=R-S 

906 RETURN 
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Si vous avez fait fonctionner l’un ou 
l’autre des douze programmes conte- 
nus dans ce livre, et si vous l'avez 
amélioré, vous avez alors découvert 
un certain nombre de notions. Par 
exemple, vous avez certainement 
constaté que rien n'est simple sur un 
programme que l'on n'a pas écrit 
soi-même : on se sent un peu perdu, 
on ne comprend pas pourquoi cela a 
été conçu de cette manière et on ne 
sait pas à qui se plaindre lorsqu'on 
rencontre une difficulté. 

Lorsqu'on écrit des programmes et 


Comment travailler 
sur un programme 


reste plus qu'à persévérer, coûte que 
coûte. Heureusement, on s'en sort 
toujours. C'est pour cette raison que 
presque chaque programme 
comporte des ajouts révélant à un 
professionnel les parties que vous 
avez beaucoup travaillées. Par exem- 
ple, c'est une suite étrange de numé- 
ros de lignes, à moins qu'il ne 
s'agisse de noms de variables exoti- 
ques. Dans notre cas, nous avons 
sciemment renoncé à procéder à une 
dernière rectification de tous nos 
programmes. 


qu'on tente de les faire fonctionner, 
on arrive généralement à un point où 
l'on constate qu'il vaudrait mieux 
tout mettre à la poubelle pour tout 
recommencer. Mais qui vous assure 
que le second essai fonctionnera 
ieux que le premier ? Il ne vous 





Le BASIC et ses diverses 
versions 

Le premier langage de program- 
mation fut découvert vers le 
milieu des années 50. Il était 
très orienté ‘’Calculs”’ : c'est le 
FORTRAN qui existe toujours 
d’ailleurs. Bien sûr, ce langage a 
été grandement amélioré, 
étendu et finalement normalisé : 
c'est le FORTRAN IV des 
années 60. En 
1963, un groupe 
d'universitaires 
américains développa un autre langage à partir du FORTRAN. 
On le nomma BASIC (Beginner's All purpose Symbolic Instruc- 
tion Code). A l'origine, le BASIC comportait deux douzaines de 
mots clés découlant presque tous du FORTRAN. II pouvait 
fonctionner sur des ordinateurs relativement petits. Depuis, 
sont nées de nombreuses versions plus sophistiquées. 

A celui qui s'intéresse à l'informatique, nous conseillons 
d'apprendre un second langage en plus du BASIC, ceci afin de 
ne pas rester limité aux faiblesses et aux inconvénients du lan- 
gage BASIC. 













































Différents langages BASIC 

Nos programmes sont rédigés dans un 
BASIC élémentaire sans grandes astuces. 
Mais un langage BASIC réclamera un 
point-virgule là où un autre utilisera une 
virgule. Lorsque vous lancez l'exécution 
du programme, si l'ordinateur ne com- 
prend pas une ligne, il vous signale 
l'erreur à l'écran et affiche le numéro de 
ligne qui lui déplaît. Certains n'inscrivent 
que le numéro, d'autres affichent la ligne 
complète. Dans ce cas, il faut relire la 
ligne désignée caractère par caractère, en 
cherchant l'erreur. S'il n’y en a pas, vous 
devez regarder dans votre manuel de 
BASIC, pour vérifier si l'instruction existe 
et si la syntaxe est bonne. Si vous 
découvrez une variante de langage, il 
suffit de corriger toutes les autres erreurs 
du même genre dans le programme. 


IF 
Dans certains cas, IF peut être utilisé 
avec une autre syntaxe que la nôtre. 
Voici les formes que nous utilisons : 
1. Comparaison logique ou numérique : 
IF B + 3 = C THEN GOTO 50 
ou IF B + 3 = C GOTO 50 
ou IF B + 3 = C THEN 50 
ou IF À = B THEN B$ = B$+C$ 


| 
| 
| 
| 
| 





es 


_ 





1e ST 
= 


ie _ plus de dix valeurs. 


Tests 

Si votre ordinateur est équipé d'aides à 
la mise au point (par exemple s'il com- 
prend les instructions DEBUG ou 
TRACE), n'hésitez pas à vous en servir. 
Grâce à ces outils, vous pourrez faire 
exécuter le programme pas à pas et 
examiner le contenu des variables 
autant de fois que vous le désirerez. 

Si l'instruction INPUT est utilisée dans 
le programme, tapez d’abord les valeurs 
que nous vous indiquons dans le para- 
graphe ‘TEST’ correspondant. Vous 
devez obtenir les mêmes résultats. 

Le mode TRACE (ou TRON/TROFF sur 
Thomson) affiche les numéros des 
lignes exécutées. Vous détectez ainsi le 
moment où une boucle ne se finit plus, 
où un test ne s'effectue pas correcte- 
ment, etc. Vous pouvez également pla- 
cer dans le #rogramme des instructions 
PRINT supplémentaires pour faire affi- 
cher le contenu des variables les plus 
importantes. Lorsque le programme 
fonctionne, vous éliminez ces lignes. 
N'oubliez pas d'être très logique dans 
ces phases de test. 





2. Comparaison entre des 
chaînes alphanumériques : 
IF variable alphanumérique = 
variable alphanumérique.… : 
IF A$ = ‘ABC 
ou IF A$ = B$ 
Si cette version de |F n'est pas comprise 
par votre ordinateur, il faut changer 
l'écriture de la ligne et son contenu. 


LET 

Certains ordinateurs exigent le mot LET 
devant le symbole d'attribution =. Dans 
notre cas, ce n'est pas nécessaire. 


DIM 

Le BASIC de certains micro-ordinateur. 
ne connaît pas l'instruction DIM. On 
peut donc délibérément utiliser un 
tableau A(n) sans cette instruction. La 
taille maximale du tableau dépend de la 
place disponible en mémoire. La plupart 
des langages BASIC exigent DIM 
lorsqu'une variable indicée doit contenir 









Le programme est trop long 
Il est pénible de s'apercevoir qu'un programme ne tient pas en 
mémoire. Les programmes de ce livre ont une longueur telle 
qu'ils doivent pouvoir fonctionner sur tous les micro-ordinateurs. 
Les paragraphes ci-dessous concernent les micros de poche 
comme par exemple le SHARP PC 1211. 
Dans ce type d'ordinateur de poche, 26 cases mémoire contien- 
nent les valeurs associées aux noms des variables A à Z. 
Dans le programme, ces cases s'appellent indifféremment A, A$, 
A(1) ou A$(1). La case désignée est la même mais son contenu 
n'est pas interprêté de la même manière selon le type de variable 
utilisée (variable numérique, alphanumérique, tableau numérique, 
tableau alphanumérique). 
Le logiciel peut comporter au maximum 1 424 pas de pro- 
gramme. Un pas correspond à une instruction simple. Pour un 
ordre compliqué, le processeur utilise plusieurs pas. 
Mais la mémoire peut également servir à enregistrer des don- 
nées. Une variable occupe alors l'équivalent de 8 pas de pro- 
gramme et ces variables viennent en complément des 26 premiè- 
res déjà citées. La 27e variable utilisée est donc la première à 
empiéter sur la zone des 1424 pas de programme. On peut aug- 
menter le nombre de variables jusqu'à 204 en théorie mais il n'y 
a plus alors de place pour le programme lui-même. Cette ‘’cloi- 
son mobile” entre le programme et les variables au-delà de la 26° 
est automatiquement gérée par le microprocesseur de 
l'ordinateur. 
Si le programme est trop grand, il faut soit renoncer à le résou- 
dre, soit sacrifier des parties du programme. On élimine par 
exemple toutes les remarques (REM). On remplace ensuite, si 
c'est possible, tous les messages et chaînes alphanumériques par 
de simples initiales ou codes. Si cela ne suffit pas, il faut repren- 
dre le programme lui-même et chercher à le réduire, par exemple 
en utilisant de meilleurs algorithmes plus concis. Si cela ne suffit 
toujours pas, il faut envisager le fractionnement du programme 
en plusieurs parties s'enchaînant. Afin de connaître la place 
occupée en mémoire, vous pouvez utiliser sur le SHARP PC 
1211 la commande MEM. L'ordinateur répond alors : 

384 STEPS 48 MEMORIES 
Les ’Steps”’ correspondent aux pas utilisés par le programme ; 
les Memories’ correspondent aux variables utilisées. 
Le développement de la micro-informatique est tel que l’on peut 
enregistrer de plus en plus de données dans un volume de plus 
en plus restreint. Chaque nouvelle génération de machine 
repousse nettement les limites de la génération précédente. On 
peut aussi étendre la capacité de certaines machines en ajoutant 
soi-même des modules d'extension mémoire. 





Le programme est trop lent 
Raccourcir un programme ne constitue pas une tâche simple. 
L'accélérer est encore plus difficile. 
Un programme peut ‘’boucler’’, c'est-à-dire qu'une erreur a pu 
se glisser dans une ligne et une boucle FOR .… NEXT ou 
IF .… GOTO s'exécute indéfiniment. En voici un exemple : 
10 FOR K = 1 TO 10 
20 K=K-1 
30 NEXT K 
Lorsqu'un programme fonctionne trop lentement à 
votre goût, recherchez d'abord la partie responsa- 
ble de cette lenteur. Placez divers ordres PRINT 
dans le programme et chronométrez : vous situe- 
rez rapidement les phases laborieuses du logiciel. 
Placez dans une boucle le minimum d'instructions nécessaires 
afin de ne pas l’allonger inutilement. Vérifiez le nombre de fois 
que la boucle s'exécute. Faites afficher les valeurs intermé- 
diaires, les compteurs de boucles et les variables importantes 
par des instructions PRINT que vous supprimerez lorsque la 
mise au point sera terminée. Vous vérifierez ainsi que les 
boucles s'exécutent correctement. 35 


Vous connaissez peut-être dans votre 
entourage, au lycée, dans votre voi- 
sinage ou même parmi vos proches, 
des personnes qui aiment travailler 
sur un ordinateur, des personnes qui 
acceptent plus volontiers un pro- 


gramme qu'une boîte de chocolats ! 
Nous serions charitables en vous 
conseillant de leur offrir notre livre, 
mais cela nous semble une bien meil- 
leure idée de leur offrir une disquette 
ou une cassette sur laquelle vous 
aurez enregistré nos programmes 
après les avoir fait fonctionner sur 


Bibliothèque de programmes 

Nous avions un peu l'intention, par l'intermé- 
diaire de ce livre, de vous convaincre que l'on 
ne doit pas tout programmer soi-même. Cer- 
tains programmes existent déjà dans le com- 
merce, alors pourquoi ré-inventer la roue ? 
Vous pouvez acheter des programmes. Certains 
sont chers et très professionnels. Ce livre vous 
fournit douze programmes clés et peut vous en 
suggérer d’autres. La personne qui possède de 
nombreux programmes peut se constituer une 
bibliothèque de programmes, c'est-à-dire des 
disquettes et des cassettes sur lesquelles se 
trouvent des programmes dûment testés et 
vérifiés, prêts à l'emploi. 

L'organisation de la bibliothèque dépend de 
votre ordinateur. Nous vous conseillons toute- 
fois de ranger dans votre bibliothèque tous les 
programmes qui vous plaisent dans ce livre. 
Une bibliothèque de programmes testés évite la 
recherche d'erreurs et vous fournit un ensemble 
de programmes fiables, utilisables à tout instant 
par votre ordinateur. 


votre propre ordinateur. || est bien 
entendu qu'à notre avis le livre que 
vous lisez actuellement, ainsi que 
d'autres de la même série, font par- 
tie intégrante de ce cadeau. 





La documentation 

Une bibliothèque de programmes ne devrait 

jamais comporter de programmes qui n'aient 

été correctement testés. À chaque programme 
doivent correspondre des notes précises, expli- 
quant le contenu du programme et la manière 
de le tester. On appelle ces notes la ‘’documen- 
tation’. Des programmes sans documentation 
restent sans valeur. Voici les éléments de base 
d'une bonne documentation : 

* Un listing complet de la dernière version du 
programme, tel que vous l’obtenez par l'ins- 
truction LIST. 

Une description générale du programme dans 
ses grandes lignes. 

Des conseils et des données permettant de 
tester le programme. 

Des indications sur la marche à suivre pour 
charger le programme. 

Des indications et des commentaires sur les 
caractères plus spécifiques du programme. 

Nous avons tenté de concevoir ce manuel de 

manière à ce qu'il représente une documenta- 

tion utile pour les programmes qu'il fournit. 
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